my $connection = DBI->connect('dbi:Oracle:xxxxx','xxxxx','xxxxx',{
    AutoCommit => 0,
    RaiseError => 1,
    PrintError => 1,
    }) 
|| die "Database connection not made: $DBI::errstr";

##</code><code>##

my $stmt1 = "select *
from final_data_set_blu_ray
order by weekend_date"; 

##</code><code>##

$query1 = $connection->prepare($stmt1);

##</code><code>##

$query1->execute() or die $connection->errstr; 

##</code><code>##

my $a_row = $query1->fetchall_arrayref();

##</code><code>##

$rng = $xlBook->ActiveSheet->Range("A1:C7");
$rng->{Value} = $mydata;

##</code><code>##

$tbl = $xlBook->ActiveSheet->PivotTableWizard(1, $rng, "", "MyPivotTable");