my $last, $incs;
while (<>) {
	$incs++ if ($last && $_ > $last);
	$last = $_;
}
print "$incs\n";