algorithmen in perl seite 118/124