Select Code to Download

4     2     9     7     21     
2     5     4     4     11.5 
6     3     5     3     15.5 
8     4     6     6     22

my $dmat = pdl [
           [4, 2, 9, 7],
...
           [8, 4, 6, 22],
           ];

#!/usr/bin/perl -w

...
}

];