sub xyz {
    my $xxx = shift || croak('Missing xxx parameter');
    my $yyy = shift || croak('Missing yyy parameter');
    my $ttt = shift;

    # Enforce length of function parameter list.
    if (@_) {
        croak('Too many args for xyz!');
    }

    # ...
}