Seems to me you fixed the wrong line in your update. I consider

%record = ();
...
push @{$records}, { %record };
[download]

much worse than

my %record;
...
push @{$records}, \%record;
[download]