Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    map  => sub { my @b = map p($_), @a; return $b[-1] },
    for  => sub { my @b; for( @a ) { push @b, p($_) } return $b[-1] },
} );

      Rate for map
for 2101/s  -- -1%
...
      Rate map for
map 1981/s  -- -0%
for 1987/s  0%  --