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