##
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 $@;