for my $key (keys %s) {
    print "Key: %key, Value: $s{ $key }\n";
};