Select Code to Download

foreach my $len(@uniques) {
    push @distrbtn, $len;
...
    }
    push @distrbtn, $count;
}

my %dstrbtn_hash = @distrbtn;

my %dstrbtn_hash;
foreach my $len(@uniques) {
...
    }
    $dstrbtn_hash{ $len } =  $count;
}