Select Code to Download

sub find_above_average {
    my $mean = &calculate_average(@_);

    return grep $_ > $mean, @_;
}

sub calculate_average {

...

    return $sum / @_;
}