@ary = qw(just another perl foo hacker);

@no_foo = grep{ $_ ne 'foo' }@ary;

print "@no_foo"