Hi,

Since @_ is global, you can use constants to NAME your variables

package X10::Config;
use constant +{ qw{ TYPE 0 NAME 1 ACTION 2 } };
use namespace::clean; # "undefine" TYPE/NAME...outside of this scope
format outputFormatGroup =
    @<<<<<<<<         @<<<<<<<<<<<<<<<<<<<<   @<<<<
    $_[TYPE],            $_[NAME],                  $_[ACTION]
.

sub printConfigGroup {
    use IO::Handle;
    OUTPUT_HANDLE->format_write('outputFormatGroup');
}
[download]

Then later on something akin to

printConfigGroup( $struct->type, $struct->name, $struct->hu );
[download]