while (<$fh>) {
    chomp; # Line in $_ no longer has trailing \n