my @allcompanies = qw(
   Acme
   Google
   Yahoo
);

my $to_remove = 'Acme';

my @selectcompanies = grep { $_ ne $to_remove } @allcompanies;

print(join(', ', @selectcompanies), "\n");  # Google, Yahoo