use File::Find;
[...]

my @fileList;
find(\&wanted, qw($myDirectory));

sub wanted {
    if (-f $File::Find::name) {
        push(@fileList, "$File::Find::name)
    }
}

print "You've found " . join("\n\t", @fileList) . "\n";


##</code><code>##

while ($file  = File::Find::find(@directoryList)) {
    if (@wantThis) {
        print "Here's a file I want: $file\n";
    }
}