#!/usr/bin/perl

%HoL = ('dogs'             => ['Snoopy', 'Fido', 'Spot'],
        'cats'             => ['Garfield', 'Attila', 'Catbert'],
        'Perl Programmers' => ['Larry', 'Randal', 'Doug']);

print "$HoL{'cats'}->[2]\n";
print "$HoL{'Perl Programmers'}[0]\n\n";

foreach my $group (keys(%HoL))
{

  foreach my $individual (0 .. 2)
  {

    print "$HoL{$group}[$individual] ";

  }

  print "\n";

}