unless( $cnt % 100 ) { print "$cnt\n"; }