my @keysInPriorityOrder = sort { 
    $data->{Elements}{$a}->{priority} 
    <=> 
    $data->{Elements}{$b}->{priority}
} keys %{ $data->{Elements} };