@l = qw( a b c );

#  '@m' just as well be '()' unless used later, but then I personally
#  would be doing C</a/ and $_ = 'z' for @l;>.
@m =  grep { /a/ and $_ = 'z' } @l;

print @l;