my %personInfo = ();
my %stateInfo = ();
while (###) # loop through data
{
    $personInfo{$name} = $state;
    push @{$stateInfo{$state}}, $name;
}