next unless $t->[0] eq 'T' or $t->[0] eq 'S' and $t->[1] eq 'a';
なんとかnext if 〜に書き直せない？