Select Code to Download

        Rate index   mod first   new   org
index 1109/s    --  -24%  -38%  -48%  -52% # moved @mult out loop and 
+used index
...
first 1780/s   61%   22%    --  -16%  -22% # The original long code
new   2116/s   91%   45%   19%    --   -8% # my version, but inline +=
+ * shift for reverse split
org   2288/s  106%   56%   29%    8%    -- # my original update s/(\d+
+)-//; and split

        Rate index first   mod   org   new
index 1316/s    --  -22%  -28%  -39%  -43%
...
mod   1829/s   39%    8%    --  -15%  -20%
org   2154/s   64%   28%   18%    --   -6%
new   2292/s   74%   36%   25%    6%    --

#!/usr/bin/perl
use strict;
...
      01:58
      00:00
 6-19:13:19