open(LIST, "wordlist.txt");
open(MSTR, "master.txt");
my @wordlist = map { chomp; $_ } <LIST>;
my @master = map { chomp; $_ } <MSTR>;
foreach my $word ( @master ) {
   print "$word:",join(",",grep(/$word/,@wordlist)),$/;
}