$worksheet2 = $workbook1->add_worksheet('Summary');
my @device  = sort keys %{$categ{'device'}};
my @browser = sort keys %{$categ{'browser'}};
my @applist = sort keys %app;
#print Dumper @applist;
$worksheet2->write_row(0,1,\@applist);
$row1 = 1;
for my $categ (@device,@browser){
  my $col = 0;
  $worksheet2->write($row1,$col++,$categ);
  for my $app (@applist){
    $worksheet2->write($row1,$col++,$pivot{$app}{$categ});
  }
  ++$row1
}