sub property {  return $_[ 0 ]->{ name } }
@sorted =
  map  { $_->[ 0 ] }
  sort { $a->[ 1 ] cmp $b->[ 1 ] }
  map  { [ $_, property( $_ ) ] }
  @people;

##</code><code>##

sub by_name { $a->{ name } cmp $b->{ name } }