while (my($key, $value) = each(%books)){
	print "$key: $value\n";
}