Select Code to Download

#!/usr/bin/env perl
use strict;
...
print "Final pdl: $final_pdl\n";

exit;

Original Data:
[
...
 [ 2 13]
 [ 3  6]
]