use strict;

use Time::HiRes qw(time);

my @data=();

my @names=qw(albert arthur bernard bill charlie david jack jonh joseph mark michael peter steven);
my @surnames=qw(bell brown canfield cornwell devlin doyle golden hoffman maclean powell rowling tovard twain warlick);
my @places=qw(amsterdan athens belfast berlin bern brussels copenhagen helsinki lisbon london luxenbourg madrid oslo paris rome stockholm vaduz vienna);

for (my $i=0;$i<=1000000;$i++) {
        my $name=$names[int(rand()*$#names)];
        my $surname=$surnames[int(rand()*$#surnames)];
        my $place=$places[int(rand()*$#places)];
        my $age=int(rand()*50)+25;
        my $rec={name=>$name,surname=>$surname,place=>$place,age=>$age};
        push @data, $rec;
}