my @state = [ 
   map {
      state => $_,
      people => [ map {person => $_}, @{$state{$_}} ],
   }, sort keys %state 
];