006  $pdl1 = pdl (@{$matrix}[0]);
...
009      $pdl2 = pdl (@{$matrix}[$j]);