# Instead of: 
open $file, ....
my @data = <$file>;
close $file;
foreach my $line (@data){
    # do stuff with $line
}

# get in the habit of doing this:
open $file, ....
while( my $line = <$file> ){
    # do stuff with $line
}
close $file;