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

my @members= sort map {
    my $key= $_;
    map " $_ : $key", @{$HoA{$key}};
} keys %HoA;

print join $/, @members, "";
__END__