/a/ and $_ = 'z' for @l;