my %entry = (%{$versions[0]}, formats => []);
for my $ver (@versions) {
push @{$entry{formats}}, {format => $ver->{format}, file => $ver->{file}};
my %entry = (%{$versions[0]}, formats => []);
for my $ver (@versions) {
push @{$entry{formats}}, {format => $ver->{format}, file => $ver->{file}};