Help for this page
%record = (); ... push @{$records}, { %record };
my %record; ... push @{$records}, \%record;