# Page Layout - Legal, Landscape our %landscape_lgl = ( set_paper => [5], set_landscape => [], set_margins_LR => [.50], set_center => [], 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 $@;