Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use Data::Dumper;          # only for teaching purpose
...
JETSONS -- MAX, TONY, WILMA
SIMPSONS -- LISA, BARNEY, WILMA, HOMER
ALCATRAZ -- ELIJAH, MAX, WILMA

Select or download this

$VAR1 = {
  'ELIJAH' => [
...
MAX can be found 2: JETSONS ALCATRAZ
TONY can be found 1: JETSONS
WILMA can be found 4: FLINTSTONES JETSONS SIMPSONS ALCATRAZ