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