my %match = map {$_ => 1} qw /GetAll Make MakeOnly/;
...
$_ -> {Suppress} = 1 if $match {$_ -> {Action}};