sub search {
    my $terms = shift;
    my $pattern = join "|", split " ", $terms;
    my $case = $FORM{case} eq 'insensitive'?"(?i)":"";
    $pattern = qr/$case$pattern/;
   my @matches = grep { $names[$_] =~ /$pattern/ } 0..$#names;
    return \@matches;
}