Select Code to Download

#!/usr/bin/perl -w
...
   '8' => '@b = map {uc($_)} @a; warn @b,"\n"',

});

 Benchmark: timing 50000 iterations of 1, 2, 3, 4, 5, 6, 7, 8...
1:  4 wallclock secs ( 4.55 usr +  0.03 sys =  4.58 CPU) @ 10917.03/s 
+(n=50000)
...
7:  4 wallclock secs ( 4.34 usr +  0.01 sys =  4.35 CPU) @ 11494.25/s 
+(n=50000)
8:  5 wallclock secs ( 4.31 usr +  0.04 sys =  4.35 CPU) @ 11494.25/s 
+(n=50000)