Select Code to Download

 my $len = length($value[$col]); 
 $width[$col] = $len if $len > $width[$col];

for my $col ( $col_min .. $col_max ) {
  $worksheet1->set_column($col,$col,$width[$col]) 
}

#!/usr/bin/perl -w
use strict;
...
    $worksheet1->set_column($col,$col,$width[$col]) 
  }
}