my %stop; @stop{qw(first second third)} = (); next if exists $stop{$field};