perl -e'$x[$_]="foo" for 1..40_000_000; <>'