$|=1; print@a=(0)x10,$/; $Y=$X=<>; ++$a[0]; while($X!=10){ print@a,$/; $X=<>; if($X>$Y){ ++$i; $Y=$X }elsif($X<$Y){ --$a[$i++] } ++$a[$i]; }