my $household;
my $voter_rating;
my $support_level;
my $phone_number;
my $last_name;
my $first_name;

format Household =

@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$household
==================================
.

format Voter =
@<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<< @<< @<<<<<<<<<<<<
     $last_name, $first_name, $voter_rating, $phone_number
.

open (Household, '>out.txt');


foreach (sort keys %households) {
  $household = $_; 
  write Household;
  foreach ($households{$household}) {
    my @members = @{$_};
    foreach (@members) {
      my %member = %{$_};
      $first_name = $member{first_name};
      $last_name = $member{last_name};
      $voter_rating = $member{voter_rating};
      $support_level = $member{support_level};
      if ($member{mobile_number}) {
        $phone_number = $member{mobile_number};
      }   
      else {
        $phone_number = $member{phone_number};
      }   
      if (!$phone_number) {
        $phone_number = ''; 
      }   

      write Voter;
    }   
  }
}