if ($data[$i] =~ m/^(?:81|82)$/ && $data[$i] eq $data[$i+1]) { #### my %wanted = map { $_, 1 } qw( 81 82 ); # ... for my $i (0 .. ($#data - 1)) { if (exists $wanted{$data[$i]} && $data[$i] eq $data[$i+1]) {