Select Code to Download

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

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

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