und ich dachte ich find mal schnell ein modul das das macht. Aber die verdächtigen List::* scheinen sich nicht dazu gemacht sein. in Perl 6 hätt ich einfach grosses X aus der kiste gezogen und dann bräucht ich keinen algorithmuns zu schreiben :)