@drives = &someSubThatReturnsListODrives();
foreach my $drive ( @drives ) {
      find(\&handleFind, $drive);
}

sub handleFind {
      my $foundFile = $File::Find::name if 'VCVARS32.BAT';
      print "$foundFile\n";
}