#!/usr/bin/perl

use strict;
use warnings;

my $range=8999;
my $min = 1000;
my @names = qw(Greg Caroline Joe Dom Mary Gerard Mark Clare Adam Damian Debbie Conor Cassie John Jane Mike);
my %hash;

foreach my $n (@names){
	my $r = int(rand($range))+$min;
	$hash{$n}=$r;
}