Help for this page

Select Code to Download

Select or download this

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