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