Schön, dass das richtige rauskommt.

Aber der Fehler liegt anderswo.

grep{ $_ =~ /\.txt$/ }readdir(DIR); sucht nach Dateien, deren Namen auf ".txt" enden.

grep{ $_ =~ /\.txt/ }readdir(DIR); sucht nach Dateien, deren Namen ".txt" enthalten.

Es ist völlig unklar, warum das etwas an deiner Fragestellung ändern sollte.