while ((my $key, my $value) = each %db_stru) {
        print "$key contains tables:\n";
        foreach my $tbl ($db_stru{$key}) {
                print "\t$tbl:";
                }
        print "\n";

}