sub mysub {
        return -4   unless  @_;
        my( $svA, $svB, $svC, $svD )= @_;
        ...
    }