[질문] perl로 스크립트를 만드는 중인데요.

다름이 아니라

아래 부분에서요.

while( tell(LDIC) < $l_offset_e) {
    read(LDIC, $buf, 8);
    ($offset, $len) = unpack("i l", $buf);
    read(LDIC, $word, $len);
    $wlist{$word} = $offset;
}

이 부분이 10만번 정도 루프를 도는데요...
좀더 시간을 단축시킬 방법이 없을까해서 고민중입니다.
아니면 이부분에서 어느부분이 가장 시간을 많이 잡아먹는지
알고싶습니다. ' ' )a