$z = 10 * random(15);
$len = 4;
my @r = ();
push @r,  $z($_:$_ + $len-1) for (0 .. $z->nelem - $len)
$r = pdl @r;
print $r;