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

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