my $foo;

sub sub1 {
    $foo = 3;
}

sub sub2 {
    print $foo;
}

sub1();
sub2();