while(chomp($row = <$fh>)) {

##</code><code>##

while(1) {
   chomp($row = <$fh>) or last;