my @common = grep exists $hash2{$_}, keys %hash1;
my @unique1 = grep !exists $hash2{$_}, keys %hash1;
my @unique2 = grep !exists $hash1{$_}, keys %hash2;