perl 变量范围

好在 Perl 的三种范围声明让它很容易做下面这些事：创建私有变量（用 my），进行有选择地访问全局变量（用 our），和给全局变量提供临时的值（用 local）：
my $nose;
our $House;
local $TV_channel;
+++++++++++++++++++++++