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