Select Code to Download

        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;