$ perl -E 'for (1 .. 2) { say }'
1
2