#!/usr/bin/perl -w
use strict;
my (@a,@b);

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

@b = map uc,@a;
print @b,"\n";

@b = map uc $_,@a;
print @b,"\n";

@b = map uc(),@a;
print @b,"\n";

@b = map uc($_),@a;
print @b,"\n";

@b = map {uc} @a;
print @b,"\n";

@b = map {uc $_} @a;
print @b,"\n";

@b = map {uc()} @a;
print @b,"\n";

@b = map {uc($_)} @a;
print @b,"\n";

##</code><code>##

perl -e '@a = (a..z); print uc for(a..z);'