# old and busted
  my $record = $db{some_key};
  $record->[2] += 100;
  $db{some_key} = $record;

  # new hotness
  $db{some_key}[2] += 100;