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