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