in reply to Accessing hashes in main program from subroutine
use Data::Dumper; print Dumper(\$tdata); [download]