Select Code to Download

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

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

sub searcharray {
 my ($terms, @array) = @_;
...
}
# call this with
my @matches = searcharray($pss, @BKSIC_DESC);