You did not run the code I posted, and you never actually test if any assignment happens before outputting. That's why I had an array scoped outside the while loop, and then tested it before getting into output. When I asked you to run specific code, it was to check what's coming back from the DB call.

$sth_1->execute($date_1) or die "Couldn't get values from DB: " . DBI-
+>errstr;
$sth_1->execute();
[download]

Is this your actual code? The second execute is clearing the cursor.

Try updating your connector to

my $dbh = DBI->connect( 'DBI:Oracle:SID',
                        'username',
                        'password',
                        {
                            PrintError  => 0,
                            RaiseError  => 1,
                            AutoCommit  => 0,
                        },
                    );
[download]

This way, if this is a database error, the statement handles will all autodie on errors and print out exactly what went wrong. It'll also tell you if you've reset a cursor with a second execute.