my $foo = ''.$key_value;
my $foo = "$key_value";
my $foo = eval($dbh->quote($key_value));   # Desperation

##</code><code>##

$sth->execute(1,"A","B","C");

##</code><code>##

my $sth = $dbh->prepare("
               INSERT INTO web_sessions_aux 
                      (wsa_id, wsa_type, wsa_key, wsa_value)
                      VALUES (?,?,?,?)", {});

my $rv = $sth->execute("2012","CRS","crs_search_index",1)
      && $sth->execute("2012","CRS","crs_search_criteria","S")
        ;

$sth->finish();

##</code><code>##

if (!ph->type) {
         ph->type = SvNIOK(ph->value) ? SQL_INTEGER : SQL_VARCHAR;
}