sub above_average  {
    my $average_num = shift;
    my @final_list;
    foreach $_ (@_) {
      if ($_ > $average_num) {
         push @final_list, $_
      }
    }
    return @final_list;
 }