#!/usr/bin/perl -w

use strict;
use Benchmark;

use vars qw/ @a @b /; 

@a = ('a'..'z');

timethese(50000, {
   '1' => '@b = map uc,@a; warn @b,"\n"',

   '2' => '@b = map uc $_,@a; warn @b,"\n"',

   '3' => '@b = map uc(),@a; warn @b,"\n"',

   '4' => '@b = map uc($_),@a; warn @b,"\n"',

   '5' => '@b = map {uc} @a; warn @b,"\n"',

   '6' => '@b = map {uc $_} @a; warn @b,"\n"',

   '7' => '@b = map {uc()} @a; warn @b,"\n"',

   '8' => '@b = map {uc($_)} @a; warn @b,"\n"',

});