my %HOA = (
    this    => [ 'A', 'B', 'C' ],
    that    => [ 'D', 'E', 'F' ],
    other   => [ 'G', 'H', 'I' ],
);

##</code><code>##

print $hoa{this}[2], "\n"; # prints 'C'.

##</code><code>##

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