chromatic and naikonta have already answered this one, but just for the future: you might find the Data::Dumper module useful. It lets you see what's inside a data structure.

You use it like this:

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

HTH!

Best wishes, andye