...
my $statement = 
     "INSERT INTO TABLE2 (COLUMN1, COLUMN2, ".
     my_subrt(COLUMN3) .") \n".
     "SELECT COLUMN1, COLUMN2, COLUMN3 \n".
     "FROM TABLE1 WHERE COLUMN4=?";
my $rv  = $dbh->do($statement, {}, 'foo');