#!/afs/athena/contrib/perl/perl

$foo = '12345';

sub testme {
    local($foo) = $foo . '666';
    print "testme::\$foo =  $foo\n";
    &testyou;
    print "testme::\$foo =  $foo\n";
}

sub testyou {
    local($foo) = $foo . '777';
    print "testyou::\$foo = $foo\n";
}

print "global \$foo =   $foo\n";
&testme;
print "global \$foo =   $foo\n\n";



# @a = ("one", "two");

sub arrayme {
    local(@a) = (@a, "and");
    print "arrayme::\@a =  @a\n";
    &arrayyou;
    print "arrayme::\@a =  @a\n";
}

sub arrayyou {
    local(@a) = (@a, "three");
    print "arrayyou::\@a = @a\n";
}

print "global \@a =    @a\n";
&arrayme;
print "global \@a =    @a\n";