my $start_letter = "A";
my $end_letter = "D";
for (my $i = $start_letter; $i le $end_letter; $i++) {
	print "\$i = $i\n";
}