Select Code to Download

# count length of the strings
my %len;
...
        update_max(%len, $att, $data{$nr}{$att});
    }
}

sub update_max(\%$$) {
    my ($ref_data, $att, $val) = @_;
...
        $ref_data->{$att} = $siz2;
    }
}