use File::Find::Rule;

my @start = qw(
  /start1/
  /path/start2/
);

my $dir_to_find = 'dirname';

my @dirs = File::Find::Rule->directory
    ->name( qr/\A\Q$dir_to_find\E\z/ )
    ->in( @start );