my $value = $measure->getRelatedness("cat#n#1", "dog#n#1");

##</code><code>##

  my $value = $measure->getRelatedness("$words1[$i]#1", "$words2[$j]#1");

##</code><code>##

  sub show {
    my ($s) = @_ ;
    $s =~ s/([\x00-\x1F\x7F-\xA0])/sprintf("\\x%02X", ord($1))/eg ;
    return $s ;
  } ;

##</code><code>##

  print "similarity of '", show("$words1[$i]#1"), "' and '", show("$words2[$j]#1"),
           "' = $value\n";