&a; &b; sub a { my $var = 1; &c($var); } sub b { my $var = 2; &c($var); } sub c { my $var = shift; print "var=$var\n"; }