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