open (MYFILE, '>out.txt');
select(MYFILE);


foreach (sort keys %households) {
  $household = $_; 
  $~ = 'Household';
  write;
  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 = ''; 
      }   
      $~ = 'Voter';

      write;
    }   
  }
}