my %varbindhash0;
my %varbindhash1;
my %varbindhash2;
my %varbindhash3;
my %varbindhash4;
my %varbindhash5;

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++;
}