in reply to Hash key intersection

my %info;
$info{$_} .= "A" for keys %A;
$info{$_} .= "B" for keys %B;
for (sort keys %info) {
  print "$_ is in: $info{$_}\n";
}

[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

In Section Seekers of Perl Wisdom