use Data::Dumper;
print Dumper(\%br_tsh);
print Dumper($tsh);