Select Code to Download

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

    my $len1 = @numlist;