Interessante Anwendungen von (List::Util::)reduce gesucht

Hallo Gruppe!

Ich habe im Web und im Usenet nach interessanten Verwendungen für
(List::Util::)reduce in Perl gesucht, die über triviale Sachen (wie
Summen, Fakultäten, Konkatenationen, Maximum usw.) hinausgehen, bin aber
kaum fündig geworden. Gibt es prominente Code-Schnipsel oder japhs oder
Golf-Beiträge, die interessanten Gebrauch von reduce machen? Vielen Dank
für jeden Hinweis. :-)

Mit freundlichem Gruß
Mirko 'Columbus' Westermeier

--
Entschäumungsbeauftragter und Wurstrechtvertreter zu detebe
E-Mail: , OpenPGP-Key-ID: 0x730E195D
Key fingerprint: 55A8 9646 9B58 60AC B5BC 9661 FDD4 93C0 730E 195D
E-Mails von mir sind signiert. Unsignierte E-Mails sind nicht von mir.