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