perldl> $pdl_of_zeroes = zeroes(10,2)
perldl> p $pdl_of_zeroes
[
 [0 0 0 0 0 0 0 0 0 0]
 [0 0 0 0 0 0 0 0 0 0]
]

perldl> $pdl_of_ones = ones(5,3)
perldl> p $pdl_of_ones
[
 [1 1 1 1 1]
 [1 1 1 1 1]
 [1 1 1 1 1]
]

perldl> $pdl_identity = identity(4,4)
perldl> p $pdl_identity
[
 [1 0 0 0]
 [0 1 0 0]
 [0 0 1 0]
 [0 0 0 1]
]