/perl -Ilib -E '$_ = 1; say $_ for 1 .. $_ for 1 .. 4'
1
1
2
1
2
3
1
2
3
4