Select Code to Download

my @topten = sort_top(10, sub { $a <=> $b }, @huge_array);

sub sort_top {
    my($top, $func, @arr) = @_;
...
    }    
    return @top;    
}