my %seen = ();
for my $element (keys(%{$hist{1}}), keys(%{$hist{2}})) {
    $seen{$element}++;
}
my @uniq = keys %seen;