use Data::Dumper;
use Math::Matrix;

my $a = Math::Matrix->new(
   [1,0,0], [1,0,0], [1,0,0],
);

print Dumper $a->transpose();