while (<$fh_of{$whatever}>) {
  # ...
}