Select Code to Download

my $pdl = sequence(2,4);

$pdl(0,3) .= -4;

use strict;
use warnings;
...
print "$pdl\n";
$pdl(0,3) .= -4;
print "$pdl\n";

[
 [0 1]
...
 [ 4  5]
 [-4  7]
]