Select Code to Download

#!/usr/bin/perl

...
    'Short way U' => $short_upp,
  },
);

              Rate New way U New way L Old way U Old way L Short   U S
+hort   L
New way U 227273/s        --      -14%      -35%      -36%      -38%  
+    -38%
...
Short lc  U 362319/s         95%         75%         72%         71%  
+       60%         58%          2%          1%          1%          -
+-        -12%        -12%
Short way U 409836/s        120%         98%         95%         93%  
+       81%         79%         16%         15%         14%         13
+%          --         -1%
Short way L 413223/s        122%         99%         97%         95%  
+       83%         80%         17%         16%         15%         14
+%          1%          --

sub short_lc { split( /\./, lc($_[0]),2 ) }