print join(';', @{$_}), "\n" for sort vergl @zeilen;