foreach $key (sort {$a <=> $b} keys %Elemente){
    print "$key, $Elemente{$key}\n" 
}