#!/usr/bin/perl -w
use strict;
use PDL::Matrix;

my $m = pdl [
         [1,2,3],
         [4,5,6],
         [7,8,9]
];