>>152
sub test {
local(*ABC) = @_;
our %ABC; # 追加
print keys(%ABC);
}

とかじゃ駄目だった？