Select Code to Download

my @in = qw(bga cbga test);
my @out;
...
foreach my $test (@test) {
  push @out, grep { /$test/ } @in;
}

my @in = qw(bga cbga test);
my @out;
...
foreach my $test (@test) {
  push @out, grep { $_ eq $test } @in;
}