while ( (my $key, my $value) = each %config ) { print "!$key! => ($value)\n"; }