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