use strict; 
use File::Find;

my $base = '/perl/bin'; 
my @dirs = map "$base/$_", qw( FirstOne SecondTwo ThirdThree);

find( \&Searcher, @dirs );

# ...