问需要帮助使用带有随机排列数的循环，并将置换值提供给perl代码。

EN

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw( say );
use List::Util qw( shuffle );

# Use fixed seed to generate reproducible results across calls to this
# script. Omit this to use a default seed every instance:
srand 42; 

my @orig_pop = 1..8;

# Using strings to name output files: *_0001.cmh .. *_1000.cmh.
# Use numbers (1 .. 1000) if you want output files named: *_1.cmh .. *_1000.cmh.
for my $iter ( '0001' .. '1000' ) {
    my @pop = shuffle @orig_pop;
    # Using a hash to make array @pop into pairs:
    my %pop = @pop;
    my $pop = join ',', map { "$_-$pop{$_}" } grep { exists $pop{$_} } @pop;
    my $cmd = qq{perl cmh-test.pl } .
        qq{--input C1_E1_C2_E2_C3_E3_C4_E4_java.sync } .
        qq{--output C1_E1_C2_E2_C3_E3_C4_E4_java.latest_${iter}.cmh } .
        qq{--min-count 20 --min-coverage 30 --max-coverage 400 } .
        qq{--population $pop --remove-temp};
    say $cmd;
}