You're not removing the elements, you're replacing them with spaces.

I think you want this, then:

my @in = qw(bga cbga test);
my @out = @in;
my @test = qw(bga);

foreach my $test (@test) {
  @out = grep { $_ ne $test } @out;
}
[download]

Which leave @out contains all the elements from @in that don't exist in @test.

Actually, thinking about it, that's the disjunction of two sets and there's probably some really short recipe to do it in the Cookbook.

"The first rule of Perl club is you don't talk about Perl club."

And since the original poster wanted case insensitivity, remember to sprinkle around lc's or uc's liberally:

@out=grep { lc($_) ne lc($test) } @out;
[download]

or somesuch drivel.

Actually, thinking about it, that's the disjunction of two sets and there's probably some really short recipe to do it in the Cookbook.

ITYM FAQ, but yes.

$ perldoc -q 'difference'
Found in /usr/lib/perl5/5.6.1/pod/perlfaq4.pod
       How do I compute the difference of two arrays?  How do I
       compute the intersection of two arrays?
...
[download]