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

##</code><code>##

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