push @{$subjects{$subject}}, \%info;
 print "email: " . $subjects{$subject}->[0]->{email};