while (<FILE>) {
   chomp;
   my ($show, $names) = split(/ -- /);
   my @names = split(/, /, $names);
   foreach my $name (@names) {
      push(@{$is_in_show{$name}}, $show);
   }
}