>>746
return ([\%hPGTname2PTCid, \%hPGTname2PTTid]);

my ($hPGTname2PTCid, $hPGTname2PTTid) = @{&hoge};

「$hPGTname2PTCid->{キー}」の形式で参照する。
適当に書いたんでなんか変かもしれないが。