while (<>) {
	my($ssn, $obj) = parse_account($_);
	push @{$accounts{$ssn}}, $obj;
}

##</code><code>##

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

##</code><code>##

sub email {
	my $self = shift;
	return $self->{'email'};
}