map(($_,1), (1..10000));

##</code><code>##

[08:35:03 jhorner@gateway scripts]$ ./20000608-2.pl 
Benchmark: timing 100000 iterations of a, b...
         a:  2 wallclock secs ( 1.49 usr +  0.00 sys =  1.49 CPU) @ 67114.09/s (n=100000)
         b:  1 wallclock secs ( 1.64 usr +  0.00 sys =  1.64 CPU) @ 60975.61/s (n=100000)
[08:35:16 jhorner@gateway scripts]$ 

##</code><code>##

Benchmark: timing 1000000 iterations of a, b...
         a: 15 wallclock secs (14.67 usr +  0.01 sys = 14.68 CPU) @ 68119.89/s (n=1000000)
         b: 16 wallclock secs (16.41 usr +  0.01 sys = 16.42 CPU) @ 60901.34/s (n=1000000)