sub get_similarity { my $i = shift; my $j = shift; # Matrix is symmetric around x==y ($i,$j) = ($j,$i) if $i > $j; return $sim[$i][$j] if defined $sim[$i][$j]; $sim[$i][$j] = similarity($words[$i], $words[$j]); }