use feature qw( say );

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