== is for numbers only, use eq for string comparison. Oh, and please use $ not @ if you want to work with one array item as a scalar.

Summary:

if(chr(127) eq $types[$t])
[download]

But, what's that int doing there in your code? A perl character is a string, not a number. I bet you're thinking of the functionality offered by ord. But ord(chr(127)) is nonsense, that's just 127.