for my $zeile ( @zeilen ) {
   my $hash;