my @searchWords = split(/\s+/, $Input{'query'});

foreach my $active(@active){
    my $newd = lc($active);

    foreach my $searchWord(@searchWords){
        $searchWord = lc($searchWord);
        push(@found, "$active:  matches '$searchWord'") if grep { /$searchWord/ } $newd;
    }
}

__END__
prints "active: matches searchWord"