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