my $txt='txt';
my @files=glob "*$txt";