$Data::Dumper::Useqq = 1;
print Dumper \%hash;