Select Code to Download

#!/usr/bin/perl -w
use strict;
use PDL::Matrix;
...
         [4,5,6],
         [7,8,9]
];

my $m = pdl [
         [1,2,3],
...
];

my $r = $m x $n;