@l = ( "a", "b", "c" );
$_ = "z" for grep /a/, @l;
print @l;