for my $stmt (@{$ary_ref}) { 
   my $format = $stmt->{col} == 1 ? $format_a : $format_b;
   $worksheet->write_col(15,$col,$ary_ref,$format); 
   last; 
}