#for (1..2) {
#   foreach my $x (0) { print $x++; }  # Error!
#}

for (1..2) {
   foreach my $x (0..1) { print $x++; }  # 01, 01
}

for (1..2) {
   foreach my $x (0..1,5..6) { print $x++; }  # 0156, 1267
}

##</code><code>##

for (1..2) {
   print map { $_++ } 0..1;  # 01, 12
}

for (1..2) {
   print map { $_++ } 0..1,5..6;  # 0156, 1267
}

##</code><code>##

for (1..2) {
   foreach my $x (map $_, 0..1,5..6) { print $x++; }  # 0156, 0156
}

##</code><code>##

for (1..2) {
   foreach (0..1,5..6) { my $x = $_; print $x++; }  # 0156, 0156
}