Quotensonsten wäre es noch von vorteil, wenn du evlt mal die Zeile 40 markierst, damit wir sehen können wo der fehler flegt.
while(my $dirEntry = <CURDIR>)