Select Code to Download

pdl [
      [4, 2, 6, 8],
...
      [9, 5, 5, 6],
      [7, 4, 3, 6],
    ],

my @rows;
my $j = 0;
...
my $ddmat = pdl [ @rows[ 0, 1, 3, 4 ] ];

# proceed to compute the determinants of the $dmat, $damat, etc.