my @tests = ( ["FOO", "BAR"], ["CRATE", "TRACE"],
["CRATE", "CRATE"], ["TRACE", "CRATE"],
["CREATE", "TRACT"], ["DWAYNE", "DUANE"], );
for my $word_pair (@tests) {
#Nice way to split the values
my ($w1, $w2) = @$word_pair;
my $simw = simw $w1, $w2;
say "distance between $w1 and $w2 is: ", 1 - $simw;
}
