>>737
> 　　my $date=$_;
> 　　my @accident=();
は@journalと同じところで宣言すべき。

> elsif(/^$/){
> #データ作製
closeしてから処理すれば？

入力データからしてどこかのニュースサイトとかで使うのかな？
こわこわー