You are close:

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

}
[download]