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