in reply to Printing by date

print if $row[4] eq $date;?
Or wrap if ($row[4] eq $date) around your hash assignments, if you only want to include those rows in your final assessment.
The PerlMonk tr/// Advocate

In Section Seekers of Perl Wisdom