Select Code to Download

C:\>perl test.pl
Benchmark: timing 100000 iterations of Mine, Particle, Yours...
...
=100000)

C:\>

use Benchmark;

...
        'Particle'  => $particle
        });