foreach my $state (keys %$states_ref) {

by 

foreach my $state (sort keys %$states_ref) {