for (@tabs) { if ( $_->{Action} eq 'GetAll' or $_->{Action} eq 'Make' or $_->{Action} eq 'MakeOnly' ) { $_->{Suppress} = 1; } } #### for my $hash (@tabs) { if (grep {$hash->{Action} eq $_} qw/ GetAll Make MakeOnly /) { $hash->{Suppress} = 1; } } #### for (@tabs) { if ($_->{Action} =~ /(^GetAll$)|(^Make$)|(MakeOnly$)/) { $_->{Suppress} = 1; } } #### for (@tabs) { if ($_->{Action} eq 'GetAll' || 'Make' || 'MakeOnly') { $_->{Suppress} = 1; } }