my %severity = ( critical => -1, OK => 1 );
my @sorted = sort {
    $severity{ $a->{severity} } <=> $severity{ $b->{severity} }
    ||
    $severity{ $a->{severity} } * ( $a->{event_age} <=> $b->{event_age} )
} @records;