open(my $fh, '<', $filename)
   or die("Unable to open ...: $!\n");

while (<$fh>) {
   chomp;
   ...
}