my $date = Class::Date->new($row->[0]);
if ( $row->[0] !~ m/^\d*-\d\d\-\d\d$/ || $date->error != $date->E_OK ){
	print STDERR Dumper($row);
	print STDERR "E: Invalid date. ".$date->errstr;
	next;
} else {
	...