my $col_width = 10; #default
...#code
if (length($variable) > $col_width) {
    my $col_width = length($variable);
}
#set column width