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