my $zeile;
  my @matrix = ();