my $key1=0;
my $val1=0;
my @count_message = ();

my %msg_rate = ('1', '00:00:00,284', '2', '00:00:00,462', '3', '01:01:00,462', '4', '00:02:00,462', '5', '01:03:00,462');
    
while( ($key1, $val1) = each(%msg_rate) ) {    		  	
	  	my ($hh1,$mm1,$ssms1) = split(/\:/,$val1);
	   	
	  	$count_message[$hh1,$mm1]++;
	  	print "countmsg $hh1 $mm1 = $count_message[($hh1,$mm1)]\n";
	  
}
		print "Wrong Values: $count_message[(1,0)]\n";
		print "Wrong Values: $count_message[(0,3)]\n";
		print "Wrong Values: $count_message[(0,1)]\n";
		print "Wrong Values: $count_message[(1,2)]\n";