In a spirit of inquiry and appreciation for the comments of other monks I ran all the working solutions through Time::Benchmark. Because no test is ever neutral, I've attached the script below for thems as is interested. The overall results are 
10000 trials of abigail (781.550ms total), 78us/trial
10000 trials of broquaint (92.195s total), 9.220ms/trial
10000 trials of esper (676.783ms total), 67us/trial
10000 trials of ferrency (548.917ms total), 54us/trial
10000 trials of george_sherston1 (655.936ms total), 65us/trial
10000 trials of george_sherston2 (852.485ms total), 85us/trial
10000 trials of george_sherston3 (712.300ms total), 71us/trial
10000 trials of samtregar (1.303s total), 130us/trial

[download]
And here's the test script: 
#! /usr/bin/perl -w
use strict;
use lib '/home/httpd/lib';

use Benchmark::Timer;
use Quantum::Superpositions; 

my %methods = (
    george_sherston1 => \&m1,
    george_sherston2 => \&m2,
    george_sherston3 => \&m3,
    broquaint => \&m4,
    abigail => \&m5,
    ferrency => \&m6,
    esper => \&m7,
    samtregar => \&m8,
);

my @tabs = (
    {
        Action => 'GetAll',
        Suppress => 0,
    },
    {
        Action => 'Make',
        Suppress => 0,
    },
    {
        Action => 'MakeOnly',
        Suppress => 0,
    },
    {
        Action => 'foo',
        Suppress => 0,
    },
    {
        Action => 'bar',
        Suppress => 0,
    },
    {
        Action => 'baz',
        Suppress => 0,
    },
    {
        Action => 'goom',
        Suppress => 0,
    },
    {
        Action => 'gomp',
        Suppress => 0,
    },
);

for my $m (sort keys %methods) {
    my $t = Benchmark::Timer->new(skip => 1);
    for(0 .. 10000) {
        $t->start($m);
        $methods{$m}->();
        $t->stop;
    }
    $t->report;
}
        
sub m1 {
    for (@tabs) {
        if (
            $_->{Action} eq 'GetAll' or
            $_->{Action} eq 'Make' or 
            $_->{Action} eq 'MakeOnly'
        ) {
            $_->{Suppress} = 1;
        }
    }
}
    
sub m2 {
    for my $hash (@tabs) {
        if (grep {$hash->{Action} eq $_} qw/
            GetAll
            Make
            MakeOnly
        /) {
            $hash->{Suppress} = 1;
        }
    }
}
    
sub m3 {
    for (@tabs) {
        if ($_->{Action} =~ /(^GetAll$)|(^Make$)|(MakeOnly$)/) {
            $_->{Suppress} = 1;
        }
    }
}
    
sub m4 {
    for (@tabs) {
        if($_->{Action} eq any( qw(GetAll Make MakeOnly) )) {
            $_->{Suppress} = 1;
        }
    }
}
    
sub m5 {
    my %match = map {$_ => 1} qw /GetAll Make MakeOnly/;
    for (@tabs) {
        $_-> {Suppress} = 1 if $match {$_-> {Action}};
    }
}
    
sub m6 {
    for (@tabs) {
        $_->{Suppress} ||= $_->{Action} =~ /^(GetAll|Make|MakeOnly)$/;
    }
}
    
sub m7 {
    my %defaults = (GetAll => 1, Make => 1, MakeOnly => 1);
    for (@tabs) {
      $_->{Suppress} = $defaults{$_->{Action}} if exists $defaults{$_-
+>{Action}};
    }
}
    
sub m8 {
    my %suppress = map { $_ => 1 } qw(GetAll Make MakeOnly);
    for (@tabs) {
       $_->{Suppress} = 1 if exists $suppress{$_};
    }
}

[download]


§ George Sherston

In reply to Re: Conditional idiom : "if X equals Y or Z" ?? - benchmark by George_Sherston
in thread Conditional idiom : "if X equals Y or Z" ?? by George_Sherston

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.