my $mat = PDL::Matrix->pdl [