foreach $key (keys %Elemente){
print "$key, $Elemente{$key}\n" 
}