use strict;
use warnings 'all';
use DBI;

my $dbh = DBI->connect("dbi:SQLite:test.db","","");

my $sql = q{ SELECT profile_id FROM profile INDEXED BY idx_name WHERE name == ? };
my $sth = $dbh->prepare($sql);

my $name = 'William';

my $rc = $sth->execute($name);