#!/usr/bin/perl -w
 use strict;
my @a = ("A".."Z");
print join "\n", @a;