<>; $a=<>; $i=1; for(<>,0){ print$i,$/; $i+=$a<$_; }