sub this_sub
{
   $this_variable = "Jeff";
}

sub that_sub
{
   print "Hello "."$this_variable";
}

this_sub();
that_sub();

# prints
Hello Jeff