$ perl -MPDL -e '$p=pdl(1); $p+=2'