my @rows = (
    [qw(name age favorite exodus)], # header
    [qw(tarounina 31 curry has)],
    [qw(jirou 18 gyoza begun)],
    [qw(saburou 27 ramen NPG)],
);

for my $row (@rows) {
    push @requests, {
        pasteData => {
            coordinate => {
                sheetId     => $sheet_prop->{sheetId},
                rowIndex    => $idx++,
                columnIndex => 0,
            },
            data => $gs->to_csv(@$row),
            type => 'PASTE_NORMAL',
            delimiter => ',',
        },
    };
}

($content, $res) = $gs->request(
    POST => ':batchUpdate',
    {
        requests => \@requests,
    },
);