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";
    }
}