use strict;

my @array = qw (bga);
my @new_array = qw (bga cbga test);

print "@array\n";

 foreach my $temp(@array)
 {
  chomp($temp);
  my $tester = grep s/$temp/ /ig,@new_array;
}

print "@new_array\n";