my $average = sum(@values)/@values;
        print $average, "\n";