foreach my $device (@devices){
		
		my $roomName = AttrVal($device,'Auto_Zimmer',"NV");
		my $temp = "$roomName - $device";
		push (@roomDev, $temp); 
				
		#fhem("setreading $ARSDev $device $roomName");
				 
	 }