flockについて

open(IN,"$filepath");
@data=<IN>;
close(IN);
#処理#
open(OUT,">$filepath");
flock(OUT, 2);
print OUT @data;
close(OUT);

この場合flockはOUTの1回だけですけど、INのときもflockしたほうがいいですか？