Select Code to Download

# reading from file
 # flintstones: lead=fred pal=barney wife=wilma pet=dino
 while ( <> ) {
...
         ($key, $value) = split /=/, $field;
         $HoH{$who}{$key} = $value;
     }