A simple package declaration addition to your code will produce the result you expect:

our $var = 1;
{
    package Inner;       # new package declaration
    our $var = 2;
    print $var, "\n";    # prints 2
}
print $var, "\n";        # prints 1,
                         # cause we're back in the "outer" package
                         # (main, by default)
[download]

This is just a little example that may help to clarify what the other eminent monks have already explained in this thread.

Ciao,
Emanuele.