sub xyz { 
    my ( $ttt, $xxx, $yyy );
    ( $xxx, $yyy ) = @_       if @_ == 2;
    ( $ttt, $xxx, $yyy ) = @_ if @_ == 3;
    croak 'Not good' unless $xxx and $yyy;
}