Done on Strawberry Perl 5.26.1

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

##</code><code>##

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