my %kunde;
		$kunde{name} = "Meier";
		$kunde{strasse} = "Mainweg";
		$kunde{ort} = "Muenchhausen";
		$kunde{telefon} = "44593";
		foreach my $key (keys %kunde)
		{
			my $wert = $kunde{$key};
			print "$key = $wert";
		}
		
		> telefon = 44593 ort = Muenchhausen strasse = Mainweg name = Meier