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