foreach $stmt_from_query (@{$array_ref}) 
{ 
   $worksheet->write_col(1,0,$array_ref,$format1); 
   last;
}