Help for this page

Select Code to Download

Select or download this

sub read_file {
   my $file=shift;
...
   my @lines=<$fh>;
   return \@lines;
}

Select or download this
```
my @array;
$array[100_000_000]=1;
```