Select Code to Download

%HoA = (
    flintstones    => [ "fred", "barney" ],
    jetsons        => [ "george", "jane", "elroy" ],
    simpsons       => [ "homer", "marge", "bart" ],
);

$HoA{teletubbies} = [ "tinky winky", "dipsy", "laa-laa", "po" ];

for $family ( keys %HoA ) {
    print "$family: @{ $HoA{$family} }\n";
}