my $obj = $Measure->new($wn);
[download]

Check your word list. Does it contain duplicated lines (you should never have to use Memoize)? Try this to spot errors:

sub similarity {
   my ( $w1, $w2 ) = @_;
   warn "'$w1' vs '$w2'";
   return $obj->getRelatedness($w1, $w2);
}
[download]