sub random_key {
	my $hash = shift;
	my $line = 0;
	my $match = undef;
	while (my ($key, $value) = each %$hash) {
		$match = $key if rand($line += $value) < $value;
	};
	return($match);
};