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


in reply to var comparison

You could also use Perl6::Junction (or Syntax::Keyword::Junction or Quantum::Superpositions), e.g. 
use Perl6::Junction qw/any/;
 ... ($var eq any('foo','bar')) ...

[download]

In Section Seekers of Perl Wisdom