use File::Spec::Functions 'catdir';

{
  my @do_it = (
    \&do_WalMart,
    \&do_ExxonMobil,
         .
         .
         .
    \&do_CiscoSystemsInc,
  );

  sub do_em {
    my $path_to_companies = shift;
    $_->( $path_to_companies ) for @do_it;
  }
}

sub do_WalMart {
  my $name = 'WalMart';
  my $dir = catdir( shift, $name );
  # blah blah blah
}