my @ary;
$ary[0xFF0000000 - 1] = 1;