use strict;
use DBI;
[…]
my $dsn = "dbi:mysql:database=$db_name";
my $dbh = DBI->connect( $dsn, $username, $password ) or die $DBI::errstr;

my $sth = $dbh->prepare(
    ‘SELECT name, surname, birth, address, cap, city, country, phone, email, notes FROM rubrica’
) or die $dbh->errstr;
$sth->execute();

my $ins0 = $dbh->prepare(
    ‘INSERT INTO persone (nome,cognome) VALUES (?,?)’
) or die $dbh->errstr;
my $ins1 = $dbh->prepare(
    ‘INSERT INTO indirizzi (id,via,cap,citta,paese) VALUES (?,?,?,?,?)’
) or die $dbh->errstr;
[… ecc, seguono altri statement insert …]

while ( my $row = $sth->fetchrow_hashref() ) {
        $ins0->execute( $row->{name}, $row->{surname} );
        my $rv = $dbh->last_insert_id(undef, undef, ‘persone’, ‘id’);

        $ins1->execute( $rv, $row->{address}, $row->{cap}, $row->{city}, $row->{country} );
        […]
 }