foreach (@files)
  {
    $_{fh}->close;
  }