foreach my $zeile(@pd)