use Data::Dumper;

%pets = ("dog", 1, "cat", 2, "pony", 2, "dog", 2,);

print Dumper(\%pets);

$pets{dog}=3;

print Dumper(\%pets);