What do you mean by "nothing is returned"? Do you get a print out saying "Ref Table = something"?
A Data::Dump of @tfl_list and @tfl_file would make this problem easier to solve - right now, I'm not sure exactly what those data structures look like, so it's hard to tell what's going on.