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