12345678901234567 perl -e'$^M=1;$x[1<<30]=2'