#!/usr/bin/perl -w

use Math::MatrixReal;

$matrix = Math::MatrixReal->new_from_string(<<'MATRIX');
[ 1 2 3 ]
[ 4 5 6 ]
MATRIX

$matrix2 = Math::MatrixReal->new(3,2);

$matrix2->transpose($matrix);

print $matrix2;