Since keys are not needed:

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