perl二维哈希变体