Select Code to Download

#!/usr/bin/perl                                                       
+                         
use strict;
...
          450,
          720
        ];

#!/usr/bin/perl                                                       
+                         
use Benchmark qw ( :hireswallclock cmpthese timethese );
...
linuxer        434440/s          4373%    1787%      15%     15%      
+--    -26%
nithins        589604/s          5970%    2461%      56%     56%     3
+6%      --