まずすぐに出来たこと。

close問題。
これは完全にゴミです（汗）
ですので、この部分は削除しておきますた。

chomp問題。
# 読み込んだ１行の行末にある改行を刈り取っていました。
# これをコメントにすることで、処理を軽くさせています。 2010/07/05 by mishowdaq-ad
#chomp;
ということで復活しておきますた。

# 2007/02/19 by mishowdaq-ad メモリーを使い切っちゃうようなのでやめ（哀）
# next if $dup_host{$hosts}++; # 2009/10/08 by mishowdaq-ad ちょと復活＠台風18号接近記念（←？）
# 再度復活 2010/07/05 by mishowdaq-ad
重複するIPアドレスをここでチェックしていましたが、メモリを使い切るので再度コメントにしますた。