<>;@a=<>;$a[0]<$_?$r++:1,print$r+1,$/for@a