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