use strict;
use warnings;

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



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