if (ref $data->{foo} eq "ARRAY") {
        # list
    }
    else {
        # single message
    }