opendir(DIR, "dir") or die "$!";
my @txt_files = grep {/\.txt$/} readdir(DIR);
if (scalar @txt_files > 0) {
  #do stuff
}