Ich bin zwar immer (oder wieder) noch am (neu)lernen von Perl, aber;
Wieso nicht einfach den key merken und aus dem original hash loeschen? Im Anschluss an die zweite Suche dann wieder einfuegen. Spart zumindest das Kopieren des hash und hat kaum Laufzeit.