use strict;
   $a = 'woof';
   my $a = 'meow';
   print "lexical \$a: $a\n";
   print "package \$a: $main::a\n";

##</code><code>##

   use strict;
   $a = 'woof';
   $a_ref = \$a;
   local $a = 'meow';
   print "\$a: $a\n";
   print "package \$a: $main::a\n";
   print "ref to package \$\$a: $$a\n";