Here's a way using two arrays. You can iterate over the index of the elements in each array while preserving the order of the @names.

my @names = qw(Greg Caroline Joe Dom Mary Gerard Mark Clare Adam Damia
+n 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";
}
[download]

In addition, you could easily not print a line based on its index number. For example inside the print loop add:

my $skip_index = 0;
next if $index == $skip_index;
[download]