Select Code to Download

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