sub populatemessagedefs()
{
	my ($ref_to_msg_defs,$Everythingelse) = @_;			
	my $temp_value;
	my $temp_key;
	my @Interface_Message_List = split (',',$Everythingelse);
	my $i=0;
	
	foreach my $field(@Interface_Message_List) {
		#In next iteration $i is ‘0’ again
		if ($i == 0) {
			$temp_key =  $field;
			$i++;	
			#Value of $i is 1 now		
		}	
		elsif ($i == 1) {
		 
			$temp_value = $field;
			
			if (exists $ref_to_msg_defs->{$temp_key}) {
				if ($field > $ref_to_msg_defs->{$temp_key}) {
					$ref_to_msg_defs{$temp_key} = $field;
					$i--;
				}	
			}
			else {
				$ref_to_msg_defs{$temp_key} = $field;
				$i--;				
			}			
		}	
	}	
}