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