@town = qw(A C T);
$friend="Tom";
print "\$friend is $friend\n";
package boy;
$name="Mary";
print "In boy \$name is $name.\n";
$main::friend="Jack";
print "In boy \@town is @::town\n";
package main;
print "In main: \$name is $name\n";
print "In main: \$name is $boy::name\n";
print "In main: \$friend is $friend.\n";