#!/usr/bin/env perl
use warnings;
foreach my $x (@primes){
  my @best = @start;
  my $count = scalar @best;
use strict;

my @primes = (2,3,5,7,11,13,17) ; 
my @start  = (0..209);
my @results =();

  print "\nprime $x $count\n";
  foreach my $y (0..$x-1){
    my @new = grep { ($_+$y) % $x } @best;
    my $new = scalar @new;
    print " ${y}mod${x} = $new\n";
    if ($new < @start){
      @start = @new;
      push ( @results, ("[","$y",",","$x","],"));
    }
  }
}
foreach (@start) {
  print "$_\n";
}
print "@results\n";