my $foo;
print_foo();
$foo = "Hello\n";
print_foo();

sub print_foo {print $foo;}