Homework & Coursework Questions

  #!’usr/bin/perl
  require ‘obj13-lib.pl’;
   
  @userarray = <STDIN>;
  $sum = sumIt(@userarray);
  $ave = $sum/(@userarray);
   
  print”Total: $sum\n”;
  print”Average: $ave\n”;
   
  foreach((@userarray)/2){      THIS PART IS WRONG yes I need a foreach loop to draw out the input numbers, but (@userarray)/2) isn't working. 

  print”Divided by 2: @userarray\n”;
  }
   
  #_END_

  Sub sumIt{
         @functionarray = @_;
         foreach $line(@functionarray){
         $functionsum += $line;
          }
           return $funtionsum;
  }
   
  1;

  #!/usr/bin/perl
  require ‘obj13t-lib.pl’;
  
  @userarray = <STDIN>;
  $sum = sumIt(@userarray);
  $ave = $sum/(@userarray);
  $newline = @newaray;
  
  print”Total: $sum\n”;
  print”Average: $ave\n”;
  print”New Array Div by 2: @newarray\n”;
  
  #_END_

  sub sumIt{
         my @functionarray = @_;
         my $functionsum = 0;
         my $newline = 0;
  
  foreach my $line(@userarray){
     $functionsum += $line;
     $newline = $line/2;
     push(@newarray,$newline);     
     }
     return ($functionsum);
     }
    1;

my ($average, $total, @halves) = imported_calculation_function(@ARGV);