Hi,
May be, more compact version could be written.

$k=a_7x7_matrix
my $pdl2 = zeroes(28,7);
my $pdl3 = zeroes(35,28);
$k = $k->append($pdl2);
$k = $k->glue(1,$pdl3);
print $k;
[download]