Select Code to Download

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

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

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

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

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

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

$tbl = $xlBook->ActiveSheet->PivotTableWizard(1, $rng, "", "MyPivotTab
+le");