$ perl bench_sort.pl
Benchmark: timing 80 iterations of merge, quick...
     merge:  4 wallclock secs ( 3.76 usr +  0.00 sys =  3.76 CPU) @ 21.28/s (n=80)
     quick: 22 wallclock secs (22.48 usr +  0.00 sys = 22.48 CPU) @  3.56/s (n=80)