@values = values(%hash);

for $element (@values){
 if ($element =~ /up/){
	$sumA++; 
}if(($element =~ /down/)){
	$sumB++
}if(($element =~ /NA/)){
	$sumC++
}
}
print "Number of up is: $sumA\n";
print "Number of down is: $sumB\n";
print "Number of NA is: $sumC\n";