in reply to list array
print map "$_\n", @allfiles; [download]
Makeshifts last the longest.
print map "$_\n", grep /[.]rtf\z/i, @allfiles; [download]