Help for this page
#!/usr/bin/perl -w use strict; ... $ws->write('A1', \@data); # Yes. IT IS transposed!
use Algorithm::Loops qw(MapCar); # .... $ss->write_row($_) for MapCar {[@_]} @data ;