Select Code to Download

my %subjects;

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

}

foreach my $key (sort (keys %subjects)){

...
        my $size = @ar;
        print "\nSize of Array = $size";
}