http://www.perlmonks.org?node_id=579040


in reply to testing more than one item for equality

No, there is no more direct way to achieve that, afaik. You could get rid of the $result variable like this 
if (grep { $_ eq $item3 } ($item1, $item2)) {
  #do something
}

[download]
or of course write 
if ($item1 eq $item3 or $item2 eq $item3) { ... }

[download]

-- Hofmator

Code written by Hofmator and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

In Section Seekers of Perl Wisdom