C:\Users\Bill>perl -wMstrict -le "print map( do{2,$_}, 1..2)"
2122