open ( my $flash, '<', $dropfile );
open ( my $reversedFlash, '<', "$dir/file");


my $tid;
my $buf;
my $test = "TEST SYSTEM";
my $tool = "REFERENCE TOOL";
my $db = "DEBUG SYSTEM";
my $arc = "ARCADE SYSTEM";
my $jp = "Japan";
my $usa = "United States";
my $eu = "Europe";
my $kor = "Korea";
my $uk = "United Kingdom";
my $mex = "Mexico";
my $au = "Australia";
my $sa = "South Asia";
my $tw = "Taiwan";
my $rs = "Russia";
my $ch = "China";
my $hk = "Hong Kong";
my $bz = "Brazil";

seek ($flash, 0x2F074, 0);
read ($flash, my $temp, 0x02);

my $data = unpack('H*', $temp);

print $data;  #prints correct value always

if ($data == "8000"){
	$tid = "TEST";
	$buf = $test;
} 
if ($data == "0080"){
	$tid = "TEST";
	$buf = $test;
} 
if ($data == "8100"){
	$tid = "TOOL";
	$buf = $tool;
} 
if ($data == "0081"){
	$tid = "TOOL";
	$buf = $tool;
} 
if ($data == "8200"){
	$tid = "DEBUG";
	$buf = $db;
} 
if ($data == "0082"){
	$tid = "DEBUG";
	$buf = $db;
} 
if ($data == "8300"){
	$tid = "CEX";
	$buf = $jp;
} 
if ($data == "0083"){
	$tid = "CEX";
	$buf = $jp;
} 
if ($data == "8400"){
	$tid = "CEX";
	$buf = $usa;
} 
if ($data == "0084"){
	$tid = "CEX";
	$buf = $usa;
} 
if ($data == "8500"){
	$tid = "CEX";
	$buf = $eu;
} 
if ($data == "0085"){
	$tid = "CEX";
	$buf = $eu;
} 
if ($data == "8600"){
	$tid = "CEX";
	$buf = $kor;
} 
if ($data == "0086"){
	$tid = "CEX";
	$buf = $kor;
} 
if ($data == "8700"){
	$tid = "CEX";
	$buf = $uk;
} 
if ($data == "0087"){
	$tid = "CEX";
	$buf = $uk;
} 
if ($data == "8800"){
	$tid = "CEX";
	$buf = $mx;
} 
if ($data == "0088"){
	$tid = "CEX";
	$buf = $mx;
} 
if ($data == "8900"){
	$tid = "CEX";
	$buf = $au;
} 
if ($data == "0089"){
	$tid = "CEX";
	$buf = $au;
} 
if ($data =~ "008A"){   #from this point it doesnt match 
	$tid = "CEX";
	$buf = $sa;
} 
if ($data =~ "8A00"){
	$tid = "CEX";
	$buf = $sa;
} 
if ($data == "8B00"){
	$tid = "CEX";
	$buf = $tw;
} 
if ($data == "008B"){
	$tid = "CEX";
	$buf = $tw;
} 
if ($data == "8C00"){
	$tid = "CEX";
	$buf = $rs;
} 
if ($data == "008C"){
	$tid = "CEX";
	$buf = $rs;
} 
if ($data == "8D00"){
	$tid = "CEX";
	$buf = $ch;
} 
if ($data == "008D"){
	$tid = "CEX";
	$buf = $ch;
} 
if ($data == "8E00"){
	$tid = "CEX";
	$buf = $hk;
} 
if ($data == "008E"){
	$tid = "CEX";
	$buf = $hk;
} 
if ($data == "8F00"){
	$tid = "CEX";
	$buf = $bz;
} 
if ($data == "008F"){
	$tid = "CEX";
	$buf = $bz;
} 
if ($data == "A000"){
	$tid = "ARC";
	$buf = $arc;
} 
if ($data == "00A0"){
	$tid = "ARC";
	$buf = $arc;
}

$lb3->Append($tid) ;
$lb4->Append($buf) ;