Of course given that $stuff is an object we can squeeze a little more juice out:

...
$stuff->header();
$fn->($stuff) if $fn;

sub header {
    my ($self) = @_;
    
    print <<HEADER;
$self->{flamencoArgs}{spec}{PAGE_HEADING}
$self->{flamencoArgs}{spec}{PAGE_TITLE}
HEADER
}


sub eat_AvionicsFMEA {
    my ($self) = @_;

    print "hiliteCols are: @{$self->{topArgs}{hiliteCol}}\n";
}
[download]

Prints:

SABER Software Requirements Oct Release
SABER Requirements
hiliteCols are: 1 3 4 5
[download]