sub Z{ @_=@l=map{splice@_,rand@_,1}@_;join('',reverse@l)eq(join'',map{map{chop}@l}@l)?@_:Z(@_) }