my %chicago; @chicago{ qw( tiger bob munch toy ) } = (); my %wisconsin; @wisconsin{ qw( tiger sara munch toy ) } = (); my %rockford; @rockford{ qw( tiger sara love toy ) } = (); #### my %chicago = map { $_ => undef } qw( tiger bob munch toy ); my %wisconsin = map { $_ => undef } qw( tiger sara munch toy ); my %rockford = map { $_ => undef } qw( tiger sara love toy ); #### my %chicago = map { $_ => 1 } qw( tiger bob munch toy ); my %wisconsin = map { $_ => 1 } qw( tiger sara munch toy ); my %rockford = map { $_ => 1 } qw( tiger sara love toy );