update avec Perl

Bonjour,
g une table PRESONNE que j'ai rempli avec un fichier texte grace à un programme PERL.
seule la colonne id_adresse n'est pas remplie.
Je remplis ensuite une table ADRESSE à l'aide d'un autre fichier texte qui donne des informations sur certaines personnes.
je voudrai recuperer dans la table PERSONNE l'id_adresse de la table ADRESSE correspondant aux personnes.

j'ai donc une requete qui me recupere l'id_adresse
Code:

1 2 $sql_ad="select max (id_adresse) from adresse;
le résultat est récupéré dans
$row_adresse=$sth->fetchrow_array;

puis une requete qui me recupere le nom de la personne à qui correspond l'adresse
Code:

1 2 $sql_pers=select id_personne from personne where nom_personne="$nom";
le résultat est dans:
$row_nom=$sth_nom-> fetchrow_array;

$nom est le nom de la personne récupéree dans le second fichier texte.

Je fais ensuite une requete pour remplir le champ id_adresse dans la table PERSONNE mais elle ne marche pas:
Code:

1 2 $sql_remplissage="update PERSONNE set id_adresse='$row_adresse' where nom_personne='$row_nom'";
où est le problème?
(quand je met des valeurs à la place de '$row_adresse' et '$row_nom', la requete fonctionne)

merci