my $pdl = sequence(2,4);

##</code><code>##

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

##</code><code>##

use strict;
use warnings;
use PDL;
use PDL::NiceSlice;

my $pdl = sequence(2,4);
print "$pdl\n";
$pdl(0,3) .= -4;
print "$pdl\n";

##</code><code>##

[
 [0 1]
 [2 3]
 [4 5]
 [6 7]
]


[
 [ 0  1]
 [ 2  3]
 [ 4  5]
 [-4  7]
]