Help for this page

Select Code to Download

Select or download this

sub A
{
...

my @a = (A..'Z');
print join "\n", @a;