# On Mac OS
use PDL;
use PDL::IO::Dumper;

my $a = random(8,150);

PDL::IO::Dumper::fdump($a, 'a.pldl');

# On Windows OS
use PDL;
use PDL::Stats::Basic;
use PDL::IO::Dumper;`

my $a = frestore('a.pldl');
my $b = $a->slice(':,3');
my $c = $a->corr($b);

print $c->slice('(0)'), "\n";