dbmopen(%pets, "C:/temp/petFile", 0644) || die "Cannot open petFile";

while(($animal, $name) = each %pets) {
	print "the name of my $animal is $name\n";
}

dbmclose(%pets);