Select Code to Download

 1: sub sort_top {
 2:     my($top, $func, @arr) = @_;
...
15:     }    
16:     return @top;    
17: }

my @array = (8, 7, 1, 5, 4, 2, 10, 6, 9, 3);

my @top = (1, 7, 8);