foreach my $stmt (@{$ary_ref}) 
{ 
   $worksheet->write_col(15,0,$ary_ref,$format); 
   last; 
}

##</code><code>##

$worksheet->set_column('J:J',19.57,$format);

##</code><code>##

$worksheet->set_column('J15:J300',19.57,$format);