Select Code to Download

my $start_number = 1;
my $end_number = 10;
for (my $i=$start_number; $i<=$end_number; $i++) {
    print "\$i = $i\n";
}

foreach my $i (1 .. 10) {
    print "\$i = $i\n";
}

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