in reply to reading files in a directory with range operator.

Simple, line 26 in your program 
my @content = split (/\,/,$_);
my @datesplit = split(/\_/,$content[0]);
$csvprint = "$datesplit[0],$datesplit[1],$content[1]\n";

[download]
fails for line 6 of FILE, which is 
2009-12-24_,5587

[download]

In Section Seekers of Perl Wisdom