my @people= ();
my @names = qw(jack peter smith jason patrick sylvia randa debbie diane 
john gina solomon fances jojo kwame nana esi francis ato justice);

for my $i (0 .. $#names) {
   my %hash = ();
   $hash{"age"} = int(rand 75) + 1;
   $hash{"name"} = $names[$i];
   push (@people, \%hash);
}