$ perl -MPDL -e "$arr_a = sequence(10); $arr_b = ones(10); $out = pdl( $arr_a, $arr_b )->reshape( 5,4 ) ; print $out; "