our @x = 3;

foo(7);

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