use warnings;
use diagnostics;

if(int(chr(127)) == @types[$t])
{
  print "BOO!\n";
}