my @output;
for my $name (@array1)
{
  print "$name :" join ", ", grep { index $_, $name >= 0 } @array2 ;
  print "\n";
}