@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";