push @{$subjects{$subject}}, %info;

##</code><code>##

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

##</code><code>##

foreach my $key (sort (keys %subjects)){
  print "\n\nKEY = $key";
  print "\nSize of Array = " . scalar @{$subjects{$key}};
}