#! /usr/bin/perl

use PDL;

my $M = sequence(10,10);
print $M;
my $row = $M->slice(':,3');
my $col = $M->slice('4,:');
my $col2 = $M->slice('5,:');
my $deep_col = $col->copy;
$col .= $col2;
$col2 .= $deep_col;
print $M;