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