perl -E 'map {say for 1..10} 1..5'