foreach my $key(keys %pids){
  close $pids{$key}{'fh'};
}