#!/usr/bin/perl
use PDL;
use PDL::Matrix;
$a =   sequence(2,3); 
$b =   sequence(3,3);

$z= $a x $b;
print $z;

##</code><code>##

print $A->getdim(0); #column
print $A->getdim(1); #row
....and for the rest matrices