#my %seen;
for my $key (keys %hash) {
	my $value_key = "@{[values %{$hash{$key}}]}";
#print "$value_key\n";
}