Select Code to Download

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

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