I second everything InfiniteSilence said.

You really need to create an account at perlmonks if your going to ask repeated questions, especially if they relate to the same problem. This lets monks more easily track additional information and approaches for your problem that you may not include in each subsequent question.

Additionally, I also agree that it looks like you need to do some studying of perl, as you already have all the tools you need to solve your newest concern:

my %files = map {$_ => undef} qw(data.txt scripts.pl);

find(sub {
    $files{$_} ||= $File::Find::name
        if exists $files{$_};
}, $location);

for my $file (keys %files) {
    print $files{$file}
        ? "$file found in $files{$file}\n"
        : "$file not found\n";
}
[download]