    #!/usr/bin/perl

    use Lingua::Wordnet;
    use Lingua::Wordnet::Analysis;
    use strict;

    my $wn = new Lingua::Wordnet;
    my $analysis = new Lingua::Wordnet::Analysis;

    my $word1 = $wn->lookup_synset("have","v",1);
    my $word2 = $wn->lookup_synset("hold","v",3);

    my @array1 = $analysis->traverse("hyponyms",$word1);
    my @array2 = $analysis->traverse("hyponyms",$word2);

    foreach my $synset ($analysis->intersection(\@array1, \@array2)) {
        print $synset->words, "\n";
    }

