my $Book = $Excel->Workbooks->Open('test.xls'); 
my $Sheet = $Book->Worksheets("Sheet1");
$Sheet->Activate();    

for my $position ( qw( Header Footer ) ) {
  for my $element ( qw( Left Center Right ) ) {
    my $item = $element . $position;
    print "$element$position: ", $Sheet->PageSetup->$item, "\n";
  }
}
[download]

++ to the first person to show me how to eliminate $item - I feel like it is unnecessary.