>>517

%表 = {
     １番 => { ２番 => true, ３番=> true, ４番=>true },
     ２番 => { １番 => false, ３番=> true, ４番=>true },
     ３番 => { ２番 => false, １番=> false, ４番=>true },
     ４番 => { ２番 => false, ３番=> false, １番=>false },
};

man perldsc に記載されている "HASHES OF HASHES"を参考にしてみてはいかが？