my $people = tie my %people, 'Tie::IxHash';

# ... 
$people->SortByValue;