sub double_each {
 return map {$_ * 2 } @_;
}

##</code><code>##

my @descmatches = productsearchbydesc($pss);
my @modelmatches = productsearchbymodel($pss);

##</code><code>##

sub searcharray {
 my ($terms, @array) = @_;
 ...
 my @matches = grep { $array[$_] =~ /$pattern/ } 0 .. $#array;
 @matches;
}
# call this with
my @matches = searcharray($pss, @BKSIC_DESC);