Select Code to Download

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

use Data::Pivot;
  @newtable = pivot( table        => \@table,
...
                     row_titles   => 1,
                     format       => '%5.2f',
                   )