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; }