sub A
{
'K';
}

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