Select Code to Download

~$ perl vert4.pl
Benchmark: timing 3 iterations of 1, 10, 100, 1000, 10000, 100000, 100
+0000...
...
            (warning: too few iterations for a reliable count)
   1000000:  1 wallclock secs ( 0.23 usr +  0.03 sys =  0.26 CPU) @ 11
+.54/s (n=3)
            (warning: too few iterations for a reliable count)

use strict;
use warnings;
...
       map { $_, "method( $_ )"} @a
   }
   );