But the way I needed to use was to have several variables to be returned, which would be easier with global variables than with several functions

Yes you can do that in Perl quite easily:

my ($var1, $var2, $var3) = MyFunction();

sub MyFunction {
   return ('VAR1', 'VAR2', 'VAR3');
}
[download]