foreach my $state (keys %addresses) {
   foreach my $address (@{$addresses{$state}}) {
      write $filehandle($state) $address . "\n";
   }
}