Select Code to Download

sub search {
    my $terms = shift;
...
    my @matches = grep { /$pattern/ } @names;
    return \@matches;
}