Select Code to Download

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

perl -E '@a=(2)x2; ch(\@a);sub ch{@{$_[0]}=(6) x scalar @{$_[0]}}; say
+ for @a'