Select Code to Download

if ($param eq 'this' || $param eq 'that' 
    || $param eq 'the other') {
  ...
}

if ($param eq any('this', 'that', 'the other') {
  ...
}

$result = any(1,2,3) * 2;
if ($result == 4) {...}

$ /usr/bin/perl ./benchmark.pl 
all: numeric (few)
...
                         Rate Quantum-Superpositions               Jun
+ction
Quantum-Superpositions  317/s                     --                  
+ -95%
Junction               6422/s                  1928%                  
+   --

#!/usr/bin/perl
use strict;
...
    1 if any('a'..'z') eq 'z';
  },
});