>>9
http://flex.ee.uec.ac.jp/texi/perl/perl_31.html

>>11
http://pc2.2ch.net/test/read.cgi/php/1056730690/984n

>>12
local $xxxx = 'test';
my $name;
while ((my $key, local $value) = each %::) {
　　${$value} eq 'test' or next;
　　$name = $key;
　　last;
}
print $name;