Select Code to Download

@common = inter ( \%foo, \%bar, \%joe );
sub inter {
...
    return grep { $seen{$_} == @_ } keys %seen;
}
=======================================================

__DATA__
my %foo = (
...
    'four' => 8,
    'five' => 89,
);

three five one two four