in reply to Exporting hash?

The my %tables - change to our %tables if perl 5.6.x or do 
use vars qw(%tables);
%tables = ( ... );

[download]

In Section Seekers of Perl Wisdom