sub print_filename (\@;@) {


##</code><code>##

    my %object;
    @object{qw/FILE PARAMETER_ONE PARAMETER_TWO/} = @{shift()};
    # other params remain on @_ ...
}