my @rray1=('one','red','orange','brown','green','blue','scarlett','fourteen');
my @rray2=('red','orange','yellow','green','blue','indigo','violet');
my @resul=grep { my $c=$_; grep /^$c$/, @rray1  } @rray2;