my $sth_insert = $dbh->prepare(<<'SQL');
    insert into mytable (desc,compid)
                 values (?,   ?)
SQL
my ($description, $compid) = ("Some description", undef);
$sth_insert->execute( $description, $compid );