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);
}

##</code><code>##

# some sort algorithm goes here
@sorted = sort by_name @people; 
for $i (0 .. $#sorted) {
   my %person = %{$sorted[$i]};
   print "$person{name} is $person{age} years old.\n";
}