$X=<>;
print+(-1,MaxValu,MrMax,MrMaxValu)[(grep$_==$X,glob<>)*2+grep$_==$X,glob<>]