perl -le '$ar[500_000_000]=1; '