sub find_above_average { my $mean = &calculate_average(@_); return grep $_ > $mean, @_; } #### sub calculate_average { @_ > 0 or die 'No numbers sent for averaging.'; my $sum = 0; foreach (@_) { $sum += $_; } return $sum / @_; }