sub above_average  
   {
       my $average_num = shift;
       grep { $_ > $average_num } @_
    }