http://www.perlmonks.org?node_id=579226


in reply to New Object and loops with Text:SimpleTable

Simply change the scope of $subj_max. Just before the for loop, declare
my $subj_max = 0;
and remove the 'my' from
my $subj_max = max @subj_len;