Select Code to Download

sub sort_new {
        my %h;
...
        %h = map {$_, -s $_} @all;
        @results = sort { $h{$a}<=>$h{$b} } @all;
}

/bin/ contains 172 files
Benchmark: timing 250 iterations of Ordinary, Schwartzian, Strange, St
+range2, Strange3, Strange4...
...
  Strange2: 66 wallclock secs (57.68 usr +  7.76 sys = 65.44 CPU) @  3
+.82/s (n=250)
  Strange3: 60 wallclock secs (53.29 usr +  7.03 sys = 60.32 CPU) @  4
+.14/s (n=250)
  Strange4: 71 wallclock secs (62.48 usr +  7.83 sys = 70.31 CPU) @  3
+.56/s (n=250)