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

##</code><code>##

use Data::Pivot;
  @newtable = pivot( table        => \@table,
                     headings     => \@headings,
                     pivot_column => $pivot_col_no,
                     layout       => 'vertical',
                     row_sum      => 'Sum',
                     row_titles   => 1,
                     format       => '%5.2f',
                   )