my @a = (shuffle 1 .. $N)[ 0 .. $E ];
my @b = (shuffle 1 .. $N)[ 0 .. $E ];
my @c = (shuffle 1 .. $N)[ 0 .. $E ];
my @d = (shuffle 1 .. $N)[ 0 .. $E ];