# Source  
my $db_sor = DBI->connect( "dbi:Oracle:DB1", "SOR", "SOR1" ) || die( $DBI::errstr . "\n" ); 
# Target  
my $db_tar = DBI->connect( "dbi:Oracle:DB2", "TAR", "TAR1" ) || die( $DBI::errstr . "\n" ); 
 
my $SEL = "SELECT COL1, COL2 FROM TEST_TAB"; 
my $INS = "INSERT INTO TEST_TAB_2 VALUES(?,?)"; 
 
my $sth_sor = $db_sor->prepare($SEL); 
my $sth_tar = $db_tar->prepare($INS); 
 
$sth_sor->execute(); 
 
while (my $rows = $sth_sor->fetchall_arrayref(undef, 3)) { 
   
  ### Problem Statement 
  ## $sth_tar->execute(???); 
  ### 
 
  for (@$rows) { 
  print "got @$_\n"; 
  } 
}