# Get all columns for each table of interest # my $sth_column_info = $dbh->column_info( $catalog, $schema, $table, undef ); my $aoa_ref = $sth_column_info->fetchall_arrayref; $tables{$table} = $aoa_ref; # Debugging only... # say $table; for my $aref (@$aoa_ref) { my @list = map $_ // 'undef', @$aref; say join '|', @list; }