perl -e '$x[0] = []; push $x[0], 1'

##</code><code>##

perl -e 'push $x[0], 1'