print$_=>$/foreach(keys%{{map{$_=>1}@{[(1)x3=>(2)x1=>(3)x3]}}});