Select Code to Download

#!/usr/bin/env perl

...
for my $datum (@data) {
    $worksheet->write_col(@$datum{qw{row col token format}});
}