print if $row[4] eq $date;