my $dbh2 = DBI->connect( $from_feed_dsn, $from_feed_user, $from_feed_pass, { RaiseError => 1, PrintError => 1 }) or die; 
  my $dbh3 = DBI->connect( $from_feed_dsn, $from_feed_user, $from_feed_pass, {RaiseError => 1, PrintError => 1 }) or die ;

##</code><code>##

my $dbh3 = DBI->connect( $destination_dsn, $destination_user, $destination_pass, {RaiseError => 1, PrintError => 1 }) or die;