use feature qw( say );

while (my ($protocol, $model, $id, $dataTypes) = tdSensor()) {
   say join ', ',
      "protocol: $protocol",
      "model: $model",
      "sensorId: $id",
      "dataTypes: $dataTypes";
}