Thank you for your super-prompt and helpful response. I was getting the following error when i tried to use the code
my $field = $metadata->addNewChild(undef, 'field');
%$field = (
name => $col,
alias => "a".++$alias_num,
I got the error "Not a HASH reference at test1_perlmonk_suggestion.pl line 52". Any idea what i need to change to avoid this error
I also got the following error "Issuing rollback() due to DESTROY without explicit disconnect() of DBD::Oracle::db handle (DESCRIPTION=(ADDRESS=(HOST=IN1NPDVMPMT02)(PROTOCOL=tcp)(PORT=1521))"