Select Code to Download

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

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

{
    local $" = ":\t";
...
        print "$key contains tables:\n\t@{$value}\n"
    }
}