while (my($ssn, $acctlist) = each %accounts) {
	foreach my $acct (@$acctlist) {
		print $ssn, $acct->email, "\n";
	}
}