say"@$_"for(*_=sub{@_?map{my$x=$_;map{[$x,@$_]}_(@_[1..$#_])}@{$_[0]}:[]})->([1,2],["a","b"],["#","*","&"]);