... $stuff->header(); $fn->($stuff) if $fn; sub header { my ($self) = @_; print <{flamencoArgs}{spec}{PAGE_HEADING} $self->{flamencoArgs}{spec}{PAGE_TITLE} HEADER } sub eat_AvionicsFMEA { my ($self) = @_; print "hiliteCols are: @{$self->{topArgs}{hiliteCol}}\n"; } #### SABER Software Requirements Oct Release SABER Requirements hiliteCols are: 1 3 4 5