my %hash = ( bob => 'dog',
             sue => 'cat',
             jim => 'parrot',);

for (keys(%hash)) {
  print "$_ has a $hash{$_}.\n";
}