while (my @row = $sth->fetchrow_array )
{
    eval { $sth_insert->execute( @row ) };
    next unless $@;

    eval { $sth_update->execute( @row ) };
    next unless $@;

    addto_Skip( @row );
}