Looks to me like it is working just fine.  101 % 100 is going to return a non-zero which in Perl is translated to be a true statement. What I think you are looking for is something along the lines of  ($cnt % 100) == 0