# From ref to array of fields:
push(@{$db{$key}}, $record);
-or-
# From individual fields:
push(@{$db{$key}}, [ $field1, $field2, $field3, $field4 ]);
-or-
# From a my'd array of fields:
{ my @fields = ...; push(@{$db{$key}}, \@fields); }
-or-
# From a array of fields that will change:
push(@{$db{$key}}, [ @fields ]);