#!/usr/bin/perl
use strict;
use warnings;
no warnings 'numeric';

my $line;
sub calcsum {
   my @funcArray = @_;
     my $funcSum = 0;
   my $arrcount = scalar(@_);
   foreach my $line (@funcArray) {
     $funcSum += $line;
     } 
   return $funcSum;
   }

sub calcavg {
 my @funcArray = @_;
  my $arrcount = scalar(@_);
  my $funcAvg = 0;
     foreach my $line (@funcArray) {
     $funcAvg += $line;
     }
   return ($funcAvg / $arrcount);
   }

sub calcarr {
 my @funcArray = @_;
 my @funcArr = ();
    foreach my $line (@funcArray) {
      $line/= 2;
    push(@funcArr,$line);   
 }
  
  return @funcArr;
}

1;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
no warnings 'numeric';

require 'obj13-lib.pl';

my @userArray = <STDIN>;

my @arr = calcarr(@userArray);
my $sum = calcsum(@userArray);
my $avg = calcavg(@userArray);
print "Sum $sum\n";
print "Avg $avg\n";
print "New Array $arr\n";