use Data::Dumper;
print Dumper($th,\%things),"\n";