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 );