You'd probably like to stop searching when you find your file:

use File::Find;
my $found;
find(\&wanted, @files);
sub wanted {
 $File::Find::prune = 1, return if defined $found;
 $found = $File::Find::name if $_ eq "$item.dat";
}
[download]