for our $x (1..2) {
 for my $x (3..4) {
  print "$::x, $x\n";
 }
}