$data .= ${$punkt[$i]}[$j] < 51
		? pack('C3',0,5*${$punkt[$i]}[$j],5*${$punkt[$i]}[$j])
		: pack('C3',0,255,255) ;