use Math::Cephes::Matrix qw(mat);
$mat = mat [[1, 2, 3], [4, 5, 6], [7, 8, 9]];
$mat = $mat->coef;
for my $i (1..2) {   # 0 first index
	print "@{$mat->[$i]}[1..2]\n";
}
# print "5 6
#        8 9"