Help for this page
sub read_file { my $file=shift; ... my @lines=<$fh>; return \@lines; }
my @array; $array[100_000_000]=1;