c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my %Businesses = (
   my %teams = (
     NFL => { 'JETS'    => 1, 'PATRIOTS' => 1, 'GIANTS'    => 1 },
     MLB => { 'YANKEES' => 1, 'METS'     => 1, 'CARDINALS' => 1 },
     ),
   my %restaurants = (
     FASTFOOD   => { 'WENDYS'   => 1, 'MCDONALDS'     => 1, },
     FINEDINING => { 'GRILL 23' => 1, 'CAPITAL GRILL' => 1, },
     ),
   );
 dd \%Businesses;
 dd \%teams;
 dd \%restaurants;
"
{
  FASTFOOD => { MCDONALDS => 1, WENDYS => 1 },
  FINEDINING => { "CAPITAL GRILL" => 1, "GRILL 23" => 1 },
  MLB => { CARDINALS => 1, METS => 1, YANKEES => 1 },
  NFL => { GIANTS => 1, JETS => 1, PATRIOTS => 1 },
}

{
  MLB => { CARDINALS => 1, METS => 1, YANKEES => 1 },
  NFL => { GIANTS => 1, JETS => 1, PATRIOTS => 1 },
}

{
  FASTFOOD   => { MCDONALDS => 1, WENDYS => 1 },
  FINEDINING => { "CAPITAL GRILL" => 1, "GRILL 23" => 1 },
}