# A bad way of doing it
while (my $furniture_name = <STDIN>) {
    chomp($furniture_name);
    my $sth = $dbh->prepare("SELECT price FROM furniture_prices WHERE furniture_name='$furniture_name'")
       or die "Couldn't prepare: '$DBI::errstr'; stopped";
    $sth->execute() or die "Couldn't execute: '$DBI::errstr'";
    my ($price) = $sth->fetchrow_array();
    print STDOUT "Item: $furniture_name Price: $price\n";
}