Select Code to Download

# Page Layout - Legal, Landscape
our %landscape_lgl = (
...
                        set_hide_gridlines => [],
                        set_fit_to_pages => []
                    );

foreach my $statement (keys(%landscape_lgl)) {
    $worksheet->$statement(@{$landscape_lgl{$statement}}),
    print "$worksheet->$statement","\n";
}

@landscape_lgl = qw/set_paper set_landscape.../

eval $statement;
warn "something went wrong in $statement: $@" if $@;