#!/usr/bin/perl -w

use strict;
use File::Find::Rule;

my $startdir = "/allfiles";

my @filelist = qw(1234567_bc_20101000.txt 99877_xy_20111111.txt); #fortesting
my %filelist = map {$_, 1} @filelist;

my $includeFiles = File::Find::Rule->file
                             ->name('*.txt'); # search by file extensions

my @files = File::Find::Rule->or( $includeFiles )
                                ->in($startdir);

#locate only txt files in the starting directory
my $includeFiles = File::Find::Rule->file
                             ->name('*.txt'); # search by file extensions

my @files = File::Find::Rule->or( $includeFiles )
                                ->in($startdir);
my $f_name;
my $c=0;
foreach my $files(@files) {
  $c++;  

  if($files=~/(.*?)\/([^\/]+)$/) {
    $f_name = $2; 
  }

  if (exists $filelist{$f_name}) {
   print "$c - Found and to be deleted: $files\n";
  }


}