$ perl -le'for (1..2) { map { print($_++) } 1..2 }'
1
2
2
3

$ perl -le'for (1..2) { for (1..2) { print($_++) } }'
1
2
1
2