use File::Find;

my @ordner_in_denen_gesucht_werden_soll=(
 '/nur/ein/test/',
 '/ein/ganz/anderer/ort',
);

my $zu_findender_ordner_name='ein_name';

my @liste_aller_pfade_die_mit_dem_passenden_name_enden=();

find \&funktion_die_auf_jeden_pfad_angewendet_wird, @ordner_in_denen_gesucht_werden_soll;

sub funktion_die_auf_jeden_pfad_angewendet_wird
{
  my $aktueller_pfad=$File::Find::name;
  my $aktueller_name=$_;
  return unless(-d $aktueller_pfad);
  if($aktueller_name eq $zu_findender_ordner_name)
  {
    push @liste_aller_pfade_die_mit_dem_passenden_name_enden, $aktueller_pfad;
  }
}

for my $pfad (@liste_aller_pfade_die_mit_dem_passenden_name_enden)
{
  print "$pfad\n";
}