foreach my $i ('A' .. 'D') {
    print "\$i = $i\n";
}