while (my ($k, $v) = each %erg) {
    print "$k: $v<br />\n";
}