The examples given here seem massively overcomplicated. Try the following:

print testing();

sub testing {
    return $_ if $_ = rval0();
    return $_ if $_ = rval1();
}

sub rval1 {
    return 1;
}

sub rval0 {
    return 0;
}
[download]