ORA-01008: not all variables bound (DBD ERROR: error possibly near <*> indicator

##</code><code>##

use DBI;
use DBD::Oracle qw(:ora_types);
use DBD::ODBC;
use Getopt::Long;

main();

###########################################################
sub main
{

 $dbh = DBI->connect("dbi:ODBC:$DSN");

 $sqlstatement="SELECT * from test_table";

 $dbh->{LongReadLen} = 140000;
 $sth = $dbh->prepare($sqlstatement);
 $sth->execute || 
       DIE("Could not execute SQL statement ... maybe invalid?");


 $row_access=0;
 while (@row=$sth->fetchrow_array)
 { 
   $c1 = func("COL1",0,1);
   $c2 = func("COL2",1,2);
 

   $INSERT_SQL="INSERT INTO trg_table(".
"column1,".               
"column2".                  
") VALUES ".
"(?,".
"?)";
     
   $INSERT_CURSOR=$LDA_DB->prepare($INSERT_SQL);

    $rv = $INSERT_CURSOR->execute();

    $INSERT_CURSOR->finish;
    $row_access++;
 }
 $INSERT_CURSOR->finish;
 $LDA_DB->disconnect;
 close(W);
}
###########################################################

sub func
{
  # if there is no value it replaces with " " otherwise it replaces with value.
}
###########################################################