my $source = "N:/TEMP";
my $destination = $dir{$source};
find ( \&wanted, $source );

my $source = "N:/TEMP_2";
etc.