@l = ( "a", "b", "c" ); @m = grep /a/, @l; $m[0] = "z"; print @l; [download]
In reply to modify list through grep by syntactic