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