shift() shiftet in Funktionen per default @_.
In $_[0] ist jetzt eine Hashreferenz, sonst würde ja 'foreach (keys %$regkey)' eine Fehlermeldung geben.

Der Hash auf den die Referenz zeigt wird dann durchlaufen und es wird jeweils geprüft ob der Key des Hashes ein Schlüssel oder ein Wert ist.

Falls es ein Schlüssel ist, wird dieser geöffnet, was in $dir jetzt drinsteht ist eine Hash Referenz. (wie schon gesagt, sonst gäbs ne Fehlermeldung)

MfG PerlProfi