#!/usr/bin/perl

use PDL;
$a = pdl [[1,3,5], [7,9,11]       ];
$b = pdl [[3,9],   [5,11],  [7,13]];

$c = $a x $b;

print $c;
