Select Code to Download

while ($i < @OIDs) {
    my $varname = "varbindhash$i";
    $$varname{'OID'} = $OIDs[$i];
    ...
}

my @varbindhashes = ();
...
...
    $varbindhashes[$i]->{'OID'} = $OIDs[$i];
    ...
}