my $sth = $dbh->prepare("INSERT INTO MY_TABLE(KEY,DATA) values (?,?)");
my $key = 'key_worked';
my $data = 'data_worked';

$sth->bind_param(1, $key, { TYPE=>DBI::SQL_VARCHAR } );
$sth->bind_param(2, $data, { TYPE=>DBI::SQL_VARCHAR } );
$sth->execute;
$sth->finish;