my @array = (0..1000, 0..1000);
      $seen{$string}++ while $string = shift @array;