C:\>perl -MPDL -le "$x = pdl([0, 1], [2,3]);print $x; print $x * $x; print $x ** 2;"

[
 [0 1]
 [2 3]
]

[
 [0 1]
 [4 9]
]

[
 [0 1]
 [4 9]
]