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