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