while(chomp($line = <FH>))

This is probably a more dangerous meme than while($line = <>) ever was—if your file is missing a terminal linefeed (or CRLF, as the case may be) you'll skip the last line. Not a common failing of text files, but all you need is one for it to bite you, hard.