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