Probably the easiest way is to shift all those sub routines back into the main script and have the required variables declared at the base script level (rather than within any sub-routines). ie:

use strict;
my $var1 = 'foo';
my $var2 = 'bar';

subRoutineA();

sub subRoutineA
{
    print "\$var1: $var1\n\$var2: $var2\n";
}
[download]

Alternatively, you could look into re-writing your scripts in an OO fashion and simply assign the required variables to the objects that you want to run the sub routines for