#!/usr/bin/env perl

use v5.010;
use warnings;
use strict;

use Excel::Writer::XLSX;

my $out = 'testfile';
my $excel = Excel::Writer::XLSX->new("$out.xlsx");

my $README = $excel->add_worksheet('README');
my $log_table = $excel->add_worksheet($out);

# Log table ___________________
$log_table->write_row('A1', ['ColA', 'ColB', 'ColC', 'ColD', 'ColE']);

sub randChar { @_ = qw/A B C D E/; return $_[(int rand 4)]; }

my $current_line = 2;
for (0 .. 9) {
    $log_table->write_row("A$current_line", [randChar(), randChar(), randChar(), randChar(), lc randChar()]);
    $current_line++;
}
$log_table->autofilter("A1:K$current_line");

# README ___________________
$current_line = 1;
for (qw/a b c d e/) {
    $README->write_row("A$current_line", [$_, "=NB.SI('$out'!E:E;A$current_line)"]);
    $current_line++;
}

$excel->close();