Find ich seltsam, ein Verzeichnis mit while() auszulesen, aber jedem, wie er's mag.

Normalerweise würd ich das so machen:



Dann sollte ein opendir auf Erfolg geprüft werden, was Du auch nicht tust...

Auf welche Perldoc beziehst Du Dich mit Deiner Aussage?
So ganz schlüssig scheint mir das nicht...

Dann würde ich persönlich die Block Variante des map benutzen:



So, und zu guter Letzt:
Was willst Du denn tun? Leider hast Du Deinen Code abgeändert, während ich meine Antwort formulierte.... Daher spar ich mir erstmal weiteres. Denn der neue Code scheint gänzlich anderes tun zu sollen als der vorige...