$ perl 860849.pl
Took 131.000000 seconds for 10000000 items (0.00001 per second)