sub check_prime {
    my $candidate = shift;
    ++$flag if 2 != $candidate =~ tr/2357//;
  }