my @args = (
	-varbindlist => [$ifSer]
	);
	my @args2 = (
	-varbindlist => [$ifPart]
	);




	if ($s->version == SNMP_VERSION_1) 
	{

   		while (defined($s->get_next_request(@args))) 
   		{
      			$_ = (keys(%{$s->var_bind_list}))[0];
 	    		if (!oid_base_match($ifSer, $_)) { last; }
      			$response=($s->var_bind_list->{$_});   
      			@final1 = $response;
      			@args = (-varbindlist => [$_]);
		}
 
		while (defined($s->get_next_request(@args2))) 
		{
      			$_ = (keys(%{$s->var_bind_list}))[0];
      			if (!oid_base_match($ifPart, $_)) { last; }
      			$response2 = ($s->var_bind_list->{$_}); 
      			@final2 = $response2; 
      			@args2 = (-varbindlist => [$_]);
   		}
	}
-------------------------------------------------------