use vars qw($foo);
{
    $foo = 'foo';
    sub xyzzy {
        print "$foo\n";
    }
}
$foo = 'bar';
xyzzy(); # Prints bar now.