foreach my $key ( keys %value_of ) {
    print "$key, $value_of{ $key }\n";
}