sub foo {
    if( $_[0] ) {
        bar( $_[0] -1 )
    };
};

sub bar {
    if( $_[0] ) {
        foo( $_[0] -1 )
    };
};