for my $Common (grep {exists $Second{$_}} keys %First){