@a=$a; @b[1]=$b; @c[1][2]=$x; end{emitp all,"one","two","three"}
