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