I personally believe that then you should explain what it is that you want. Based on other nodes in this thread, I suppose that that's 'name_of_the_file.txt'. In that case, I would do:

# untested
use File::Basename;
my @menu_files = map { my $n=basename $_;
                       $n =~ /\.txt$/ ? $n : () } @files;
[download]