Help for this page

Select Code to Download


  1. or download this
    my %subjects;
    
    ...
            push @{$subjects{$subject}}, %info;
    
    }
    
  2. or download this
    foreach my $key (sort (keys %subjects)){
    
    ...
            my $size = @ar;
            print "\nSize of Array = $size";
    }