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