foreach $Gruppe (keys %Data) { print $Gruppe . " " . $Data{$Gruppe} . "\n"; };