Oh, then you want nested hashes for automatic set reduction:

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

Yes, read the book faster!