print ($v->{$first} == $v->{$second} || 
                $v->{$first} < 0.6 * scalar(keys %$v) 
            ? "A": $first, " ");