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