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;

}