print join(';', @{$_}), "\n" for @zeilen;   #sortiert wieder ausgeben