sub func {
    my $arg = shift;
    return($arg, 0) if $arg > 10;
    return($arg - 2, 1);
}

my $var = 10;
($var, my $succ) = func($var);
print "$var.\n";