my @a;
$a[2 ** 31] = 1;