Done on Strawberry Perl 5.26.1

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