Help for this page

Select Code to Download


  1. or download this
     push @{$subjects{$subject}}, %info;
  2. or download this
     push @{$subjects{$subject}}, \%info;
 print "email: " . $subjects{$subject}->[0]->{email};
  3. or download this
    foreach my $key (sort (keys %subjects)){
  print "\n\nKEY = $key";
  print "\nSize of Array = " . scalar @{$subjects{$key}};
}