Select Code to Download

use strict;
use warnings;
...
       qq{  Kids: @{ $HoH{$person}->{kids} }\n},
       ;
}

Person: pete
   Age: 37
...
Person: fred
   Age: 54
  Kids: janet john mary