Achja, was mir grad aufgefallen ist:
Du könntest bei $node auch gleich einen next mit undef setzen beim Erstellen.



Ansonsten ist es ein bisserl unhübsch/inkonsistent, weil das erste Element einen prev mit undef hat, das letzte Element aber keinen key, der next heisst.
Das ist zwar meist nicht tragisch, weil Perl einen Hashkey bei Bedarf (Zugriff) anlegt und den mit undef initialisiert. Im Endeffekt kommt also meist das Gleiche raus, aber gefalln tuts mir nicht sonderlich.