my %stop; @stop{qw(first second third)} = (); next if exists $stop{$field}; #### next if grep $field eq $_, qw(first second third);