for $a (@sea)
{
  chomp $a;
  @result = grep /\Q$a\E/, @gen;
  push (@final , @result);
}