my $i = 0;
@allcompanies = grep {$_ ne $co or $i++} @allcompanies;