while ( <IN> ){ # no blanks araound IN
  ...
while ( <$fh> ){  # dito

##</code><code>##

open (IN, "<",  $dir/$file")