in reply to a couple of rounds of golf for the weekend

My solution for part 1 (209 chars, including 2 newlines):

@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

[download]

Using the list built in part 1, my solution for part 2 (358 chars, including 4 newlines):

<Reveal this spoiler or all spoilers in this node or all in this thread>

Hugo

In Section Obfuscated Code