I always find it strange that people loop and push when often it's map or grep that's needed.

opendir(MYDIR,"dir") or die "$!\n";
@txtfiles = grep { /\.txt$/ } readdir MYDIR;
closedir MYDIR;
[download]

Granted, your exposition was annotated for learning purposes.