@hdr=unpack("S*", $hdr);  # RAW RGB Unsigned Short array
	printf("PrInTf:: RGB[16]=%hu, [22]=%d\n", $hdr[16], $hdr[22]);
	print ("pRInT :: RGB[16]=$hdr[16], [22]=$hdr[22]\n");  =>
PrInTf:: RGB[16]=3689, [22]=2462
pRInT :: RGB[16]=3689, [22]=2462