$ perl -le 'push a, 2, 3; print @a' 23