my $sth = $dbh->prepare("
   UPDATE many_address
   SET name=NULL, date_loaded=NULL
   WHERE name=? AND number=? AND street=?
");

while (<RA>) {
   my ($name,$add,$street) = split(/\|/,$_);
   chomp($street);
   $sth->execute($name,$add,$street);
}