# 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";
}