# establish database connection
my $dsn = "dbi:Oracle:DWAPRD";
my $dbh = DBI->connect($dsn, $user, $pass);

# execute "lov_table_lookup.sql"
my $sth = $dbh->prepare($lov_table_sql);
$sth->execute($note_filter, $name_filter);

# print returned data and store table numbers in array
my @table_numbers;
print "\n----------\n";
while(my $row = $sth->fetchrow_hashref()) {
    print $row->{'TABLE_NUMBER'}, " ", $row->{'GLOBAL_SECTION_NAME'}, " ", $row->{'NOTE'}, "\n";
    push(@table_numbers, $row->{'TABLE_NUMBER'});
}
print "----------\n";

# retrieve and print lov value list for each table number found
foreach(@table_numbers) {
    my $row_counter = 1;
    
    # execute "lov_value_lookup.sql"
    my $sth = $dbh->prepare($lov_value_sql);
    $sth->execute($_);
    
    print "\n----------\n";
    while(my $row = $sth->fetchrow_hashref()) {
        print "$row_counter ", $row->{'TABLE_NUMBER'}, " ", $row->{'LOV_INTEGER_KEY'}, " ", 
        $row->{'LOV_DISPLAY_KEY'}, " ", 
        #$row->{'NOTE'}, 
        "\n";
        $row_counter++;
    }
    print "----------\n";
}

##</code><code>##

DBD::Oracle::db prepare failed: ORA-25408: can not safely replay call (DBD ERROR: OCIStmtExecute/Describe) [for Statement "-- List all the codes
SELECT table_number
     , lov_integer_key
     , lov_display_key
     --, note
  FROM rdb_main.dk_lov_detail_rec
 WHERE table_number = ?
 ORDER BY table_number, lov_integer_key
"] at lov_lookup.pl line 51.
Can't call method "execute" on an undefined value at lov_lookup.pl line 52.