my $field = 'answer';
  my $value = 42;
  my $str = dbh->prepare("SELECT * FROM t WHERE $field = ?");
  $sth->execute($value);
  ...