my %h = %{$db->{hash}}; #get hash from db
$h{key}->[0]=99;        #alter value
$db->{hash} = \%h;      #put hash back in

print $db->{hash}->{key}->[0]; #99