use strict;
use warnings;

my @letters = ("A".."D");



for (my $i=0; $i<@letters; $i++)
{
	print "$i = $letters[$i]\n";
}




##</code><code>##


0 = A
1 = B
2 = C
3 = D