my %kunde;
		$kunde{name} = "Meier";
		$kunde{strasse} = "Mainweg";
		$kunde{ort} = "Muenchhausen";
		$kunde{telefon} = "44593";
		my @schluessel = keys(%kunde);
		print join(', ', @schluessel);		
		# Die Reihenfolge der Schlüssel
		# ist bei Ihnen eventuell
		# anders!
				
		> telefon, ort, strasse, name