use autodie; open my $handle, '<', 'yourfile.txt'; while (my $line = <$handle>) { chomp $line; # remove trailing newline # do something with $line here. }