while ( my ($key,$value) = each %$rows ) {
	my $name = $value->{name};
	# ...
}