$ perl bench_sort2.pl
Benchmark: timing 800 iterations of random, reverse, sorted...
    random: 14 wallclock secs (14.48 usr +  0.00 sys = 14.48 CPU) @ 55.26/s (n=800)
   reverse: 14 wallclock secs (13.57 usr +  0.00 sys = 13.57 CPU) @ 58.94/s (n=800)
    sorted: 14 wallclock secs (13.57 usr +  0.00 sys = 13.57 CPU) @ 58.94/s (n=800)