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