for my $data_pair (@data_list) {
    if($data_pair->{'key'} eq 'correct') {

        my $cor= $data_pair->{'value'};

        if($data_pair->{'key'} eq 'date') {
            my $date = $data_pair->{'value'};
            ...
        }
     }
}