Select Code to Download

use strict;
use warnings;
...
for ( 0 .. $#var ) {
    print distance( $var[0], $var[$_] ) . " - $var[$_]\n";
}

Each string's 'distance' from "Gallia est omnis divisa in partes tres"
+:

...
18 - Gallia ... divisa ... tres
33 - ... tres
34 - quattuor