@t=map eval"sub{\$n=~tr/1234/$_/;\$n}",((1243,1432)x2,1243,4321)x4;map{$n=
"1234$_";map&$_,@t}map{$_,join"",(split/(....)/)[1,5,3]}341221434321,
341223414123,342121434312,431221433421,432121433412,432124133142