my $rows = $sthBoo->fetchall_arrayref();
my $num_rows = @$rows;


##</code><code>##

while (my $row = $sth->fetchrow_hashref)
        {

##</code><code>##

DBD::Oracle::st fetchrow_hashref failed: no statement executing (perhaps you need to call execute first) [for Statement "