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

##</code><code>##

    my $len1 = @numlist;