if ($data eq "8000" or $data eq 0080){
    $tid = "TEST";
    $buf = $test;
} 
elsif ($data eq "8100" or $data eq "0081"){
    $tid = "TOOL";
    $buf = $tool;
} 
elsif ...

##</code><code>##

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