Select Code to Download

# Get all columns for each table of interest
#
...
    my @list = map $_ // 'undef', @$aref;
    say join '|', @list;
}

dw_contact_source
undef|dwcust1|dw_contact_source|contact_id|4|BIGINT|20|undef|undef|10|
+0|undef|undef|4|undef|undef|1|NO|undef|undef|undef|undef|undef|undef|
+undef|undef|undef|undef|undef|undef|undef|undef|undef|undef|undef|und
+ef|1|bigint(20)|undef|0
...
undef|dwcust1|dw_contact_source|contact_type_id|4|TINYINT|4|undef|unde
+f|10|0|undef|undef|4|undef|undef|3|NO|undef|undef|undef|undef|undef|u
+ndef|undef|undef|undef|undef|undef|undef|undef|undef|undef|undef|unde
+f|undef||tinyint(4)|undef|0
undef|dwcust1|dw_contact_source|insert_date|11|DATETIME|19|undef|0|und
+ef|0|undef|undef|9|-79|undef|4|NO|undef|undef|undef|undef|undef|undef
+|undef|undef|undef|undef|undef|undef|undef|undef|undef|undef|undef|un
+def||datetime|undef|0
undef|dwcust1|dw_contact_source|update_date|11|DATETIME|19|undef|0|und
+ef|0|undef|undef|9|-79|undef|5|NO|undef|undef|undef|undef|undef|undef
+|undef|undef|undef|undef|undef|undef|undef|undef|undef|undef|undef|un
+def||datetime|undef|0