Select Code to Download

push @$records, {
    timereceived => $dtevent,
    ...

@$records = sort { $a->{timereceived} <=> $b->{timereceived} } @$recor
+ds;