my %subjects;

foreach my $subm(@subm){
        ($subject, $email, $time) = split(/^/, $subm);


        my %info;
        $info{email} = $email;
        $info{time} = $time;

        if(! exists $subjects{$subject}){
                print "Key DOES NOT exist\n";
                $subjects{$subject} = [];
        }else{
                print "KEY DO EXIST\n";
        }

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

}

##</code><code>##

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

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