my @filter=("Time","Place");
my $reffilterarr=\@filter;


# Open Excel File
my $xlBook = $xlApp->Workbooks->Open("$mdir\\$tbcsv"); 
my $worksheet = $xlBook->Worksheets("$table");
my $rng = $worksheet->UsedRange;

my $sheet2=$xlBook->Worksheets->Add;
my $rng2 = $xlBook->ActiveSheet->Range("A1:BZ97");
my $tbl = $sheet2->PivotTableWizard(1, $rng, $rng2, "MyPivotTable");

$tbl->AddFields($refrowarr, $refcolarr, $reffilterarr);
$tbl->ActiveFilters;