■ chalow (write_rss_file)

<dc:data>$today</dc:data>　→　<dc:date>$today</dc:date>

push @{$same_date{"$m-$d"}}, $y; # 同じ日付 (月日) を持つ年のリスト

push @{$same_date{"$m-$d"}}, $y # 同じ日付 (月日) を持つ年のリスト
    if (!grep(/$y/, @{$same_date{"$m-$d"}}));