Hi everyone. I'm pretty new to Perl and everything concerned and I have a problem. I have a script that should select some values from a mysql table and copy them to another table (in another db). Then it should update two fields in the first table, so that already copied values aren't copied anymore. But I am not at all able to update them. Plus, are you aware of a way in which I could select data to be copied randomly instead than sequentially?<\br> Here's my code: <\br>

#!/usr/bin/perl

#use strict;
use diagnostics; 


######################################################################
+########################
#  si ricercano all'interno del database originario tutti gli alias (r
+edirect) di ogni entrata.
# Questo file prende in input 3_type_extracted.txt e il database (itwi
+ki3) ricercando gli alias 
# all'interno della tabella redirect. Il file generato è 4_redirect_ty
+pe_extracted.txt
######################################################################
+##########################



BEGIN {                                                    
    use Exporter ();
    use vars qw(@ISA @EXPORT @EXPORT_OK);
    @ISA = qw(Exporter);
    @EXPORT = qw();
}
use vars @EXPORT;
use vars @EXPORT_OK;
use vars qw();
$|++; 

use DB_File;
use DBI;
use Time::HiRes qw( usleep ualarm gettimeofday tv_interval );
use Term::ANSIColor qw(:constants);
use Time::ParseDate;
use Time::CTime;
use HTML::Entities;
use HTML::Parse;
use Encode qw/is_utf8 decode encode_utf8 _utf8_off/;
use Unicode::MapUTF8 qw(to_utf8 from_utf8 utf8_supported_charset);
use POSIX qw(locale_h);
use frameinit;
setlocale(LC_ALL, "en_US.iso885915");



$PATHDATA = $frameinit::PATHDATA;
$PATHSCRIPTS = $frameinit::PATHSCRIPTS;
    
$debug = 0;

$mysqldbpre= $frameinit::MYSQLDBPRE;
$mysqldbins=$frameinit::MYSQLDBINS;
$mysqldb = $frameinit::MYSQLDB;
$mysqluser = $frameinit::MYSQLUSER;
$mysqlpwd = $frameinit::MYSQLPWD;
$myhost = $frameinit::MYHOST;

#############################################
##Mi collego al primo db ed estraggo i dati##
#############################################

$TABLESOURCE = 'ar_web';
$dsn = "DBI:mysql:database=$mysqldbpre;host=$myhost";
$dbh = DBI->connect($dsn, $mysqluser, $mysqlpwd)|| print "NON RIESCO A
+ CONNETTERMI\n"; 

my($idc,$query,$dsub);
my $range = 40;


#Calcolo di un numero random da usare per la selezione dei campi#
my $random_number = int(rand($range));
$date = `/bin/date`;

$query = "SELECT idc, query, dsub3 FROM $TABLESOURCE where (assigned I
+S NULL and evaluated IS NULL and dsub3 not like '') limit 100";


$sth = $dbh->prepare($query);
$sth->{"mysql_use_result"} = 1;
$sth->execute();
($idc,$query,$dsub3) = $sth->fetchrow_array or warn "Error in fetch (P
+age_id:$page_id): $DBI::errstr\n";


###########################################
##Aggiorno i dati nella tabella INSTANCE##
###########################################


    print ">>> crea tabella instance, db $mysqldbins with script in $P
+ATHSCRIPTS ... ";
    $rc = system("cd $PATHSCRIPTS; ./crea_instance.sh");
    print "($rc) OK\n";
    #print LOG ">>> crea tabella instance, db $mysqldbins => $rc\n";

    

$TABLEINST = 'instance';
$dsg =  "DBI:mysql:database=$mysqldbins;host=$myhost";
$dbk = DBI->connect($dsg, $mysqluser, $mysqlpwd)|| print "NON RIESCO A
+ CONNETTERMI\n"; 

        while($idc){
        $idao = $idc.'_'.$TABLESOURCE;
        $insert = "insert into $TABLEINST (idao,oggetto,valore) values
+ (?,?,?)";
        
            $sthy = $dbk->prepare($insert);
        
            if(!defined($sthy)){ 
                #print RED,"Error:  $DBI::errstr\n$select\n",RESET;
            } 
            $rvy = $sthy->execute($idao, $query, $dsub3);
            if(!defined($rvy)){ 
                #print RED,"Error:  $DBI::errstr\n$select\n",RESET;
            } 
        ($idc,$query,$dsub3) = $sth->fetchrow_array 
        }


##############################################################
##Aggiorno i campi Evaluated e Assigned della tabella source##
##############################################################

$dsq = "DBI:mysql:database=$mysqldbpre;host=$myhost";
$dbq = DBI->connect($dsq, $mysqluser, $mysqlpwd)|| print "NON RIESCO A
+ CONNETTERMI\n"; 
    
    print ">>> update tabella $TABLESOURCE, db $mysqldbpre with script
+ in $PATHSCRIPTS ... ";
    
    while($idc){
        $update = "UPDATE $TABLESOURCE SET assigned='1', evaluated='1'
+ WHERE (idc LIKE '$idc')";
            $stq = $dbq->prepare($update);
            $rvq = $stq->execute($assigned, $evaluated);
            ($idc,$query,$dsub3) = $sth->fetchrow_array
            
        }
    print "OK\n";
    
######################################################################
+########
[download]

Thanks to anyone willing to help. Suggestions and criticism are very much appreciated.