$ perl bench_sort2.pl
Benchmark: timing 800 iterations of random, reverse, sorted...
    random: 11 wallclock secs (11.31 usr +  0.00 sys = 11.31 CPU) @ 70.73/s (n=800)
   reverse:  2 wallclock secs ( 1.98 usr +  0.00 sys =  1.98 CPU) @ 403.84/s (n=800)
    sorted:  2 wallclock secs ( 1.94 usr +  0.00 sys =  1.94 CPU) @ 413.44/s (n=800)