sub chop2 {
        my $str1    = $string1;
        my $str2    = $string2;
        my $length  = length $string1;
        my $score;

        $score += (chop $str1 eq chop $str2) while $str1;

        return $score/$length;
    }