$t[3] = uc($t[3]); $t[4] = uc($t[4]);
next if (length($s[0]) != 1);
push(@a, [$t[5], ($t[4] eq '.' || $t[4] eq $t[3])? 0 : 1, $ts{$t[3].$s[0]}? 1 : 0, $h{$t[0],$t[1]}? 1 : 0]);
$t[3] = uc($t[3]); $t[4] = uc($t[4]);
next if (length($s[0]) != 1);
push(@a, [$t[5], ($t[4] eq '.' || $t[4] eq $t[3])? 0 : 1, $ts{$t[3].$s[0]}? 1 : 0, $h{$t[0],$t[1]}? 1 : 0]);