use strict;
use PDL;
use PDL::NiceSlice;

my %h;
my $PDL_value = zeroes(3,1);
$h{'keyval'} = $PDL_value;

my $dbg;