Select Code to Download

#!/usr/bin/perl -w
use strict;
...

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

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