Select Code to Download

$data = { Elements => {
    AlphaKey => {
...
        OtherVal => 'morerandomthings'
    },
}};

$sorted = [
    {
...
        OtherVal => 'randomthings'
    },
];

my @pri = sort { $a <=> $b } map { $data->{Elements}{$_}->{priority} }
+ keys %{$data->{Elements}};