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

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