Select Code to Download

use strict;
use warnings;
...
    print  $name, mean(@values);
}

use List::Util qw(sum);
...
sub mean { return sum(@_)/@_ }