perl -e'push @a, 1 while 1'