foreach my $zeile (@log{1}) { mach_was }