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