use strict;

my $x;

sub foo {
   $x = 'foo';   # Ok
}

foo();
print($x);  # foo