#! perl -slw
use strict;
use String::Approx qw[ adist adistr ];

print "String::Approx::VERSION: ", $String::Approx::VERSION;

my @inputs = qw(donor_dedupe_source indicted_video_source source1);

print "\nUsing adist";
print "$_ : ", adist( pack( 'A'.length, 'source' ), $_ ) for @inputs;

print "\nUsing adistr";
print "$_ : ", adistr( pack( 'A'.length, 'source' ), $_ ) for @inputs;

__END__

P:\test>junk2
String::Approx::VERSION: 3.19

Using adist
donor_dedupe_source : 13
indicted_video_source : 15
source1 : 1

Using adistr
donor_dedupe_source : 13
indicted_video_source : 15
source1 : 1