use strict;
use warnings;
use File::Find;

my @dir = qw( N:/TMP N:/TMP_2 );

for my $dir (@dir)
{
	find(sub {
		print "[$dir] $File::Find::dir $File::Find::name\n";
	}, $dir);
}