my %error = (
	'disk' => 0,
	'cpu' => 0,
	'hdd' => 0,
	'graphics' => 0,
	'keyboard' => 0,
	'' => 0 #no error code
	);

for my $i (0 .. $#dataarray) {
	$error{$dataarray[$i][3]}++;
}