$ perl -MPDL -e "$arr = sequence(10); print $arr;"