Select Code to Download

my @nlist     = ( 2,4,5,6,7 );
my $tolerance = 1;
...
C => [4 5 6]
D => [5 6 7]
E => [6 7]

#my @nlist = (0,0,1,2,3,3,4,5,6,8,8,10);
#my @nlist = (0,1,2,3,4,5,6,8,10);
...

}