use vars qw($var1 $var2 $var3);
{
    $var1 = 'One';
    $var2 = 'Two';
    $var3 = 'Three';
}

##</code><code>##

use vars qw($var1 $var2 $var3);
initialize();
sub initialize {
    $var1 = 'One';
    $var2 = 'Two';
    $var3 = 'Three';
}