for ("a","b","c") { for (1,2,3) { print "$__, $_\n"; } }