perl -MPDL -e "print transpose(sequence(3,2)+1);"