use autodie;

open(my $fh, '<', $file);

while ( defined (my $line = <$fh>) )
{
   chomp($line);
   # do stuff
}