I'm sort of teaching myself perl and have a similar problem. I used the problem above but I'm not getting the same results. I want to find the average using a <STDIN> and subroutines.

here's what I've got:

sub:

sub avg {
$n = 0;
@array = (<STDIN>);


$total =$#array + 1;

foreach $array ( @array ) {
$n += $array;
}
$res = $n/$total;
return $res;
}

1;

function:
#!/usr/bin/perl

require 'obj13-lib.pl';

$res = avg();
print $res;

Where am I going wrong?