$ perl -MPDL -e "$seq = sequence(10); $seq_1 = $seq->reshape(5,2); print $seq_1;"