my $subj_max = max @subj_len;