Select Code to Download

my $ssw      = Spreadsheet::WriteExcel->new('file.xls');
my $ss       = $ssw->add_worksheet($thing);
...
    }
  }
}

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