my @common = grep { $_ if exists $hash2{$_} } keys %hash1;

##</code><code>##

my @unique1 = grep { $_ unless exists $hash2{$_} } keys %hash1;

##</code><code>##

my @unique2 = grep { $_ unless exists $hash1{$_} } keys %hash2;