use strict;
use File::Find;


my $directory = '/perl/bin';   

find( \&Searcher, map "$directory/$_", qw(FirstOne SecondTwo ThirdThree)); 

  sub Searcher {
  if(-d $_)
  {
   print "$File::Find::name\n";
   #Do stuff in each directory here ...

  }
}