while (keys %fhlist) {
    my $pid = waitpid(-1, 0);
    delete $fhlist{$pid};
}