$tid = "CEX" if grep {$_ eq $data} qw /8300 0083 ... 8F00 008F/;