my $sorted = [
    sort {$a->{Priority} <=> $b->{Priority}}
    values %{$data->{Elements}}
];