Select Code to Download

my @names = qw(Greg Caroline Joe Dom Mary Gerard Mark Clare Adam Damia
+n Conor Cassie John Jane Mike);
my $max_rand = 8999;
...
foreach my $index (0..$#names) {
    print "$names[$index], $random_array[$index]\n";
}

my $skip_index = 0;
next if $index == $skip_index;