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