open(IN,"<$file") or die "Cannot read $file: $!\n"; my @content = ; close(IN); #### $results[0]++ if ( $digit == 0 );