#store vars in file dofile.vars:

my $var1 = 'foo';
my $var2 = 'bar';
return $var1, $var2;

#in your program:

my ($var1, $var2) = do "dofile.vars";