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

##</code><code>##

use List::MoreUtils qw(uniq);
my @uniq = uniq( keys(%hash1), keys(%hash2) );