$ perl -e 'eval { my @foo;$foo[2**32]="1" } || warn("Not big enough\n")'