DB<2> $seen{$_}++ for (keys(%a), keys(%b))
DB<3> x grep { $seen{$_} > 1 } keys(%seen)
[download]

You can combine these two into a single statement:

use Data::Dump;

my %a = ( a => 1, b => 2, c => 3 );
my %b = ( b => 2, c => 1, d => 4 );

my %seen;
pp grep { $seen{$_}++ } keys %a, keys %b;
[download]

Update: Don't use state variables for this. See lodin's reply

Or, with 5.10

pp grep { state %seen; $seen{$_}++ } keys %a, keys %b;
[download]