use strict;
use warnings;

my $globalvar='';

sub in
{
$globalvar='Hallo';
}

soub out
{
print $globalvar;
}

in();
out();