Help for this page
if (!exists($data->{$key}) { $data->{$key} = []; } push @{$data->{$key}}, $new_value;