Select Code to Download

my $str = shift || "17:43:33:21:23:19:27:6";
my @a1 = ();
...
print "\nAccessing random element:\n";
cmpthese(-1, { made_by_map => sub { $a1[rand 100]; },
               made_by_x   => sub { $a2[rand 100]; } });

Accessing element 0:
                 Rate   made_by_x made_by_map
...
                 Rate made_by_map   made_by_x
made_by_map 1724352/s          --         -2%
made_by_x   1758653/s          2%          --

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/