Help for this page

Select Code to Download


  1. or download this
    my %HOA = (
    this    => [ 'A', 'B', 'C' ],
    that    => [ 'D', 'E', 'F' ],
    other   => [ 'G', 'H', 'I' ],
);
  2. or download this
    print $hoa{this}[2], "\n"; # prints 'C'.
  3. or download this
    foreach my $key ( keys %HOA ) {
    print "$key:\t";
...
# that:   D       E       F
# other:  G       H       I