perl -MPDL -e'$foo = pdl [1..3];$bar = pdl [5..7];$bar += $foo; print $bar,$/'
[6 8 10]
$