use 5.012;
use warnings;

use List::Compare;

my %hash = (
    a => [ qw/foo bar baz for/ ],
    b => [ qw/bar bells are for tough guys/ ],
    c => [ qw/belly up to the bar for beer/ ],
    d => [ qw/d is not used for comparison/ ],
);

my $lc = List::Compare->new($hash{a}, $hash{b}, $hash{c});
# my $lc = List::Compare->new(@hash{ qw/a b c/ }); # Or with hash slice

my @intersection = $lc->get_intersection;
say "@intersection";

##</code><code>##

bar for