Select Code to Download

use Benchmark;
my $n = 1000;
...
                             print STDERR "$b$a";
                           },
            });

Benchmark: timing 1000 iterations of match, subst, swap...
     match:  1 wallclock secs ( 0.97 usr +  0.00 sys =  0.97 CPU) @ 10
+30.93/s (n=1000)
...
match 1031/s    --  -23%  -40%
swap  1333/s   29%    --  -23%
subst 1724/s   67%   29%    --