my $insq = "insert into SHAPES (blah..blah) values (SDO_GEOMETRY(2003,NULL,NULL,SDO_ELEM_INFO_ARRAY(1,1003,3),SDO_ORDINATE_ARRAY(?,?,?,?)))";
$sth = $DBH->prepare($insq);