It's the

    while ( <T>) {
[download]

in load_tbls. That modifies $_, which at that moment is an alias for the elements of @database.

Add a 'local $_' in your load_tbls sub.

Abigail