$n=1; #we have no idea which variables should be cascaded.
$subref=sub { return $n *3 };

print &$subref, "\n";
$n=2;
print &$subref, "\n";

##</code><code>##

use Cascade;

cascade $n;
cascade $m;
$n=1;

$m=$n;
$n=$m+1;