sub v{
    ord($_[0])-ord("A")+1
}