$states{$data[1]}{$data[0]} = 1;
...
for my $state (sort keys %states) {
  print "$state: ", join(",  ", sort keys %{$states{$state}}), "\n";
}