>>610-611
そうやってアクセスする事で何をしたいのか
さっぱり分からんのだが。

my$f="%20s %17s %16s %15s %15s %15s %s\n";
my@t=qw(SCALAR ARRAY HASH CODE GLOB IO);
printf$f,"SYMBOL",@t;
while(my($k,$v)=each%::){printf$f,$k,map*{"$v"}{$_},@t}