Create your own stack without bothering with local()?

Or localise your stack.

our @x = 3;

foo(7);

sub foo {
    local @x = ( shift, @x );
    print $x[0], "\n";
}
[download]

Not the most efficient thing in the world though... I miss languages where I can apply expressions to dynamic scope entry/exit :-)