xxx: Тебе нужно sub by{map{[splice@_,1,$ _[0]]}!($ #_%$ _[0])..$ #_/$ _[0]}
yyy: А это точно перловый код, а не зацензурированный мат?
zzz: В блоге у автора кто-то выразился более поэтично, что-то про "код, который выблевал чужой"