package Foo;
$Foo::y = 42;

sub foo {
 my $x;
 our $y;
 ...
}
sub bar {
 my $x;
 our $y;
 ...
}