my @dir = ( qw( N:/TMP N:/TMP_2 ));
for my $dir ( @dir) { 
     find( \&wanted ($dir), $dir ); 
}

##</code><code>##

sub wanted { 
     my $dir = shift;
     print "[$dir] $File::Find::dir $File::Find::name\n"; }