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