while ( my ($key, $value) = each %hash ) {
    print "$key kommt $value mal vor\n";
}