my @values = map {
		(  $errors{$_}{'date'}, $errors{$_}{'time'}, $errors{$_}{'cnt'}, $_ )
	} keys %errors;
my $value_ref = [@values];
my $file_ref = new IO::File "> csvoutput.csv";
my $status = $csv->print ($file_ref, $value_ref)