foreach my $key ( keys %HOA ) {
    print "$key:\t";
    print "$_\t" for @{$HOA{$key}};
    print "\n";
}
# Prints the following (don't rely on the order of hash keys).
# this:   A       B       C
# that:   D       E       F
# other:  G       H       I