sub v {
    my $sum = 0;
    for (split //, $_[0]) {
        $sum *= 26;
        $sum += ord($_) - ord("A") + 1;
    }
    return $sum;
}