Select Code to Download

#/usr/bin/perl

...
        map => sub {map { $arr[$_*2+1] } 0..int(@arr/2)-1},
        }
    );

~/perl$ cat /proc/version
Linux version 2.6.26.8-57.fc8 (mockbuild@x86-4.fedora.phx.redhat.com) 
+(gcc version 4.1.2 20070925 (Red Hat 4.1.2-33)) #1 SMP Thu Dec 18 18:
+59:49 EST 2008
...
mult    7.80/s     49%     16%      7%      --     -1%    -15%
grep    7.92/s     51%     18%      9%      1%      --    -14%
map     9.22/s     76%     37%     27%     18%     16%      --