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