Looks like they got you taken care of, so I thought I would pass a little tip about finding array size

sub avg
{
    my $len1 = $#numlist + 1;
    return total(@numlist) / $len1;
}
[download]

You can get the array length by this:

    my $len1 = @numlist;
[download]

... which is the scalar value of your array, which is the size.

Enjoy Learning Perl!