$ perl -Mstrict -Mwarnings -E '
my @x = qw{a b c};
say "@x";
@x = grep { $_ ne q{b} } @x;
say "@x";
'
a b c
a c