Help for this page
tie @lines, 'Tie::File', 'file' or die ...; for (@lines) { ... } untie @lines;
tie @array, 'Tie::File', $file or die ("Oh Noes cannot open $file"); for (@array){ ... } } untie @array;