my @names = qw(Greg Caroline Joe Dom Mary Gerard Mark Clare Adam Damian Conor Cassie John Jane Mike);
my $max_rand = 8999;
my $min_rand = 0;
my @random_array = map{ int(rand($max_rand + 1)) + $min_rand } @names;

foreach my $index (0..$#names) {
    print "$names[$index], $random_array[$index]\n";
}

##</code><code>##

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