@l = ( "a", "b", "c" );
@m = grep /a/, @l;
$m[0] = "z";
print @l;