my @nlist     = ( 2,4,5,6,7 );
my $tolerance = 1;

We would like to have:

A => [2]
B => [4 5]
C => [4 5 6]
D => [5 6 7]
E => [6 7]