open(my $IN_FH, '<', $filename) or die ...;

while (<$IN_FH>) { ... }