sub read_file {
   my $file=shift;
   open my $fh,$file or die "$file : $!";
   my @lines=<$fh>;
   return \@lines;
}

##</code><code>##

my @array;
$array[100_000_000]=1;