use File::Find;
sub ask {
    my $response;
    print @_;
    chomp($response = <STDIN>);
    $response;
}

my $searchbase = '/usr/local/farm/company/subcompany/';
our @files;
our $whatWeWant = ask 'What corp are you looking for? ';
find sub {
    -d and push @files, glob "$File::Find::name/*$whatWeWant*";
}, $searchbase;
{
    local ($\,$,) = ($/, $/);
    print @files;
}