my %seen;
my @uniq = grep { !$seen{$_}++ } keys(%hash1), keys(%hash2);