Select Code to Download

use Math::Combinatorics qw( combine);
my @collection; # list of strings
...
    ...
    return $value;
}

my @similarity = map { $_->[0] }
                 sort { $a->[1] <=> $b->[1] }
                 map { [ $_, similarity($_) ] } @tuples;