my $sthHandle = $dbh->prepare("SOME QUERY");
$sthHandle->execute() or die "$DBI::errstr";
while(my ($VALUE) = $sthHandle->fetchrow_array()) {
    my $sthHandle2 - $dbh->prepare("SOME QUERY");
    $sthHandle2->execute() or die "$DBI::errstr";
    while( my ($VALUE) = $sthHandle2->fetchrow_array()) {
        print "$VALUE";
    }
}

##</code><code>##

panic: DBI active kids (2) > kids (1) at /usr/lib/perl5/site_perl/5.8.0/DBD/JDBC.pm line 890.

##</code><code>##

DBI handle cleared whilst still active at ./dbProgram.pl.bak line 160.
    dbih_clearcom (sth 0x844d930 0x8478d30, com 0x8478ee0, imp DBD::JDBC::st):
       FLAGS 0x115: COMSET Active Warn PrintError
       PARENT DBI::db=HASH(0x82e004c)
       KIDS 0 (0 Active)
       IMP_DATA undef
       NUM_OF_FIELDS 1
       NUM_OF_PARAMS 0