sub update_param_into_db_with_parsing { 
		my @sub_output 		= @{$_[0]}; 
		my $sub_regex 		= $_[1]; # should be a valid regex to match valid obj  
		my @param_list 		= @{$_[2]}; 
		my $param_obj		= shift @param_list; 
		my $CURRENT_OMS 	= $_[3]; 
		my $sub_TABLEname   = $_[4]; 
		my $sub_dbh         = $_[5]; 
		my %DATA; 
		my %OBJ_HASH; 
		my %obj_list; 
		my $TIME_STAMP; 
		my $OBJ_NAME; 
		my $param; 
		my @sub_output; 	 
		my $sub_regex; 	 
		my @param_list; 	 
		my $param_obj;	 
		my $CURRENT_OMS;  
		my $sub_TABLEname; 
		my $sub_dbh;   
		 
				 
		foreach (@sub_output){ 
				chomp; 
				if (/^START OF PROCESSING DATE:\s(.*)$/){ 
						print "inside start of processing\n";				 
						undef %OBJ_HASH; 
						$TIME_STAMP = timeFormat($1,'-'); 
						print "formatted sample date: $TIME_STAMP\n" if $DEBUG; 
				# Get the object fist 
				}elsif (/^($sub_regex)\sVALID OBJECT$/) { 
						$obj_list{$1} = 1; 
						$OBJ_NAME = $1; 
						$OBJ_HASH{$OBJ_NAME}{$param_obj} = $1; 
						print "current Trk: $1\n" if $DEBUG; 
				#list of paramters now 
				} elsif (/^$param\s*([0-9]*\.?[0-9]*)/){ 
								$OBJ_HASH{$OBJ_NAME}{$param} = $1; 
								print "New $param: $1 for $OBJ_NAME at $TIME_STAMP \n" if $DEBUG;  
						   } ##### i am stuck at this place ..  
						    
					  
				elsif (/\s*END\s+OF\s+PROCESSING\s+DATE\:\s(.*)$/) { 
					print "in side End of processing\n"; 
					$TIME_STAMP = timeFormat($1,'-'); 
					undef %DATA; 
					foreach $OBJ_NAME (keys %OBJ_HASH) { 
							for $param (@param_list){ 
						$DATA{OMS_IP}		= $CURRENT_OMS; 
						$DATA{OBJ_NAME}		= $OBJ_HASH{$OBJ_NAME}{$param}; 
						$DATA{TIME_STAMP}	= $TIME_STAMP; 
						print "current trunk : $DATA{OBJ_NAME}\n"; 
						INSERT_DATA_IN_TABLE(\%DATA, $sub_TABLEname , $sub_dbh); # this is putting all hash data in database 
					} 
			} 
	} 
} 
}