foreach my $element (@help) { if($data !~ /lc($element)/e) { push @more_candidates, $element; } }