$zip_daten = '';
$daten = join '',@daten;
use IO::Compress::Zip qw(zip $ZipError);
$status = zip \$daten => \$zip_daten or die "zip schlug fehl: $ZipError\n";