$count = unpack "C", $str;
@values = unpack "x C$count (V$count)2"