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

subRoutineA();

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