my $subj_max = 0;

##</code><code>##

    my $subj_max = max @subj_len;