for (1..2) { for (1..3) { print $_++; } # 123 234 print "\n"; }