pdl> p$p = sequence 2,5

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

pdl> p$t3 = $t2 = ($t1 = zeroes 4,3) .= -1

[
 [-1 -1 -1 -1]
 [-1 -1 -1 -1]
 [-1 -1 -1 -1]
]

pdl> $t1(0:2,1:2)->(;_) .= $p(0:1,1:3)->(;_); p$t1

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

pdl> $t2(0:2,1:2)->flat .= $p(0:1,1:3)->flat; p$t2 # the same

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

pdl> $t3(0:2,1:2) .= $p(0:1,1:3)->transpose; p$t3

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

pdl>