for my $i (0 .. $#digits) {
    for my $j ($i + 1 .. $#digits) {
      ++$flag if $digits[$i] == $digits[$j];
    }
  }