# Change line 44 inside init_wb
   $wb->sheets($_)->set_column(0, 4, 15, $center);

   # To this
   $wb->sheets($_)->set_column(0, 19, 15, $center);


##</code><code>##

   # Replace the if/elsif block inside mce_loop with the following

   # Fill worksheet rows/cells
   if ($region eq 'AMS') {
      $wb = init_wb(0); $ws = $wb->sheets(0);
      $ws->write(0, 2, 'foo', $format);
      for my $row (1..1e6) { for my $cell (0..19) {
         $ws->write($row, $cell, $row + $cell + 10e6);
      }}
      print "AMS  ---- DONE.\n";
   }
   elsif ($region eq 'APJ') {
      $wb = init_wb(1); $ws = $wb->sheets(1);
      $ws->write(0, 2, 'bar', $format);
      for my $row (1..1e6) { for my $cell (0..19) {
         $ws->write($row, $cell, $row + $cell + 20e6);
      }}
      print "APJ  ---- DONE.\n";
   }
   elsif ($region eq 'EMEA') {
      $wb = init_wb(2); $ws = $wb->sheets(2);
      $ws->write(0, 2, 'baz', $format);
      for my $row (1..1e6) { for my $cell (0..19) {
         $ws->write($row, $cell, $row + $cell + 30e6);
      }}
      print "EMEA ---- DONE.\n";
   }


##</code><code>##

$ time perl write_60mil.pl
AMS  ---- DONE.
EMEA ---- DONE.
APJ  ---- DONE.
Node List is Done.

real   4m35.239s
user  12m 3.641s
sys    0m 4.242s


##</code><code>##

# update /etc/fstab
tmpfs /dev/shm tmpfs defaults,size=5g 0 0

# afterwards, remount /dev/shm
mount -o remount /dev/shm