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