use Data::Dumper;
  print Dumper \%hash;

  print join ":", %hash;

  print join ":", keys %hash;
  print join ":", values %hash;

  while( my ($k, $v) = each %hash ){
    printf " %s --> %s\n", %k, $v;
  }