my $row = 1;
foreach my $data (@data) {

    

    $worksheet->write($row, 0, @$data[0]);
    $worksheet->write($row, 1, @$data[1]);