##
my %dstrbtn_hash = @distrbtn;
##
##
my %dstrbtn_hash;
foreach my $len(@uniques) {
my $index = 0;
my $count = 0;
while( $index <= $#sorted ) {
if( $len == $sorted[$index] ) {
$count++;
}
$index++;
}
$dstrbtn_hash{ $len } = $count;
}