$ perl -MPDL -e "$arr = ones(3,3), print $arr;"