Select Code to Download

my @people= ();
my @names = qw(jack peter smith jason patrick sylvia randa debbie dian
+e 
...
   $hash{"name"} = $names[$i];
   push (@people, \%hash);
}

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