while ( my ($k, $v) = each %h ) {
  print "$k:$v.\n";
}