foreach my $company (@companies) {
  # yada, yada
}