sub xyz {
    croak 'Bad args' unless @_ == 2 or @_ == 3;
    my( $yyy, $xxx, $ttt ) = reverse @_;
    ...
}