&decl();
print $variable;
sub decl {
    our $variable = 1;
}