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

        print "\n\nKEY = $key";
        my @ar = @{subjects{$key}};
        my $size = @ar;
        print "\nSize of Array = $size";
}