#!/usr/bin/perl

use strict;
use warnings;

my $x="a";

my %hash;
$hash{"a"}= "ding";
$hash{"b"}= "junk";
$hash{"c"}= "ding";

for my $right ("a","b","c") {
    if (eval "\$hash{\$x} eq \$hash{\$right}") {
	print "yes\n";
    }
    else {
	if ($@ ne "") { print "ERROR: $@\n"; }
	else { print "no\n";}
    }
}