# Determining whether an item is in a list

my @items = ('bbb', 'ddd');
my @list = ('aaa', 'bbb', 'ccc', 'ddd', 'eee');

foreach $item (@items) {
if ({ map { $_ => 1 } @list }->{$item})
{
    print "Yes!\n";
}
else
{
    print "No!\n";
}
}