Select Code to Download

#!/usr/bin/perl
use strict;
...
ForBenchamrk   219717/s             --           -10%           -32%
WhileBenchamrk 243436/s            11%             --           -24%
MapBenchamrk   321814/s            46%            32%             --

#!/usr/bin/perl
use strict;
...
}

print Dumper mapBenchmark(@array);