#! perl -slw
use strict;
use threads;
use Thread::Queue;
use Excel::Writer::XLSX;;

sub worker {
    my( $Q, $region, $sql ) = @_;
    my $wb = Excel::Writer::XLSX->new("$region.xlsx");
    $wb->set_properties( title    => 'Node List', author   => 'L_WC demo', comments => 'Node List' );
    $wb->set_optimization();
    my $fmt = $wb->add_format( bg_color => 44 ); $fmt->set_align('center');
    my $ws = $wb->add_worksheet( $region );
    my $row = 0;
    while( $Q->dequeue ) {
        $ws->write( $row++, 0, $_ );
    }
    $wb->close;
}
 my @nodeList = ( ['AMS', 'a'], ['APJ', 'ap'], ['EMEA', 'e'] );


my @Qs = map Thread::Queue->new, 1 .. 3;
my @threads = map threads->new( \&worker, $Qs[ $_ ], @{ $nodeList[ $_ ] } ), 0 .. 2;

for( 1 .. 1e6 ) {
    my $sheet = int( rand 3 );
    $Qs[ $sheet ]->enqueue( $nodeList[ $sheet ][1] . $_ );
}
$Qs[ $_ ]->enqueue( undef ) for 0 .. 2;

$_->join for @threads;