有关块中的作用域问题

#!usr/local/bin/perl

use strict;
use warnings;

{$a = 'test';}

print $a;


上面这段代码没有错误，没有警告。
那位帮忙解释下为什么警告都没有。


请看7楼的帖子，谢谢！