my $sth = $dbh->prepare(<<EndOfSQL);
  SELECT name
  FROM   item
  WHERE  id = ?
EndOfSQL

while (<>) {
  chomp;
  if (($name) = $dbh->selectrow_array($sth, {}, $_)) {
    print "$_ => $name\n";
  } else {
    print "$_ not found\n";
  }
}