...
my $sensorId = 1;
TellStick::tdSensor($protocol, 25, $model, 25, $sensorId, $dataTypes);
 print "protocol: $protocol, model: $model, sensorId: $sensorId, dataTypes: $dataTypes\n";

I get the output

id1: 1
id2: 51
protocol: mandolyn, model: temperaturehumidity, sensorId: 1, dataTypes: 2