use strict;
my %daten;

$daten{feld1}{Wert1} = "Inhalt 1 1";
$daten{feld1}{Wert2} = "Inhalt 1 2";
$daten{feld1}{Wert3} = "Inhalt 1 3";

$daten{feld2}{Wert1} = "Inhalt 2 1";
$daten{feld2}{Wert2} = "Inhalt 2 2";
$daten{feld2}{Wert3} = "Inhalt 2 3";

$daten{feld3}{Wert1} = "Inhalt 3 1";
$daten{feld3}{Wert2} = "Inhalt 3 2";
$daten{feld3}{Wert3} = "Inhalt 3 3";

while (my ($Name1, $Wert1) = each %daten){ 
	print "$Name1, $Wert1\n"; 
	
	while (my ($Name2, $Wert2) = each $Wert1) { 
		print "$Name2, $Wert2\n"; 
		} # while
	} # while