# We want to change element 4 of array foo to '12'
$MLDBMhash{foo} = &Revise_It($MLDBMhash{foo},'4','12');

sub &Revise_It {
  @somearray = @($_[0]);
  $somearry[$_[1]] = $_[2];
  return @somearray;
}