@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";