Just to be sure, since you say you're new to perl...

When you're putting the array values in, are you putting in a reference to the array? I.e., are you doing something like $db_stru{$db_name} = \@db_tables? If you aren't, it wouldn't break on the way in, but you'd find that the solutions given wouldn't appear to work.

HTH,
optimist