Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my %Businesses = (
...
  FASTFOOD   => { MCDONALDS => 1, WENDYS => 1 },
  FINEDINING => { "CAPITAL GRILL" => 1, "GRILL 23" => 1 },
}

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my %Businesses = (
...
  FASTFOOD   => { MCDONALDS => 1, WENDYS => 1 },
  FINEDINING => { "CAPITAL GRILL" => 1, "GRILL 23" => 1 },
}