> # たとえば こわれにくいｶｳﾝﾀのﾌｧｲﾙを読みだすときにですね(;´Д`)
> open ( IN, "$countfile$i.dat" );
> flock(IN, 1);　　# ←こんな行があったほうが良いんじゃないかと　
> $count[$i] = <IN>;
> $filenumber{$count[$i]} = $i;
> close ( IN );

perlはﾏｼﾞで読みづらい(;´Д`)

参考：2020/06/22(月)22時43分31秒