Select Code to Download

use Clone 'clone' ;

...
@result{ @dupkeys } = @{ clone($h) }{ @dupkeys } ;
print Dumper( $h ) ;

use strict;
use warnings;
...
    last unless MCE::Hobo->pending;
}

use strict;
use warnings;
...
    print "ident: ", $ret->{ident}, ", key: ", $ret->{key}, "\n";
}

use strict;
use warnings;
...
    MCE::Hobo->waitone;
}