Help for this page
sub v{ ord($_[0])-ord("A")+1 }
sub v { my (@letters) = split //, $_[0]; ... } print v("AB"),"\n";