perl  -E '@a=(2)x2; @a=ch(@a);sub ch{@_=(6) x @_}; say for @a'