my $start_letter = ord('A');
my $end_letter = ord('D');

for (my $i=$start_letter; $i<=$end_letter; $i++)
{
    print chr($i), "\n";
}
[download]