($p{$_})&amp;6];$p{$_}＝/^$p/ix?$p:close$_}keys%p}p;p;p;p;p;map{$p{$_}＝〜/^[p.]/&amp;&amp;