my %varbindhash; 
my $i = 0; 
while ($i < @OIDs) { 
   $varbindhash[$i]{OID} = $OIDs[$i]; 
   $varbindhash[$i]{OID_value} = $OID_VALUEs[$i]; 
   $varbindhash[$i]{OIDs_data_types_id} = $OIDs_DATA_TYPEs_ID[$i]; 
   $varbindhash[$i]{OIDs_data_types} = $DATA_TYPEs[$i]; 
   $i++; 
}