Select Code to Download

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

for my $key ( @keysInPriorityOrder ) {
    my $subhash = $data->{Elements}{ $key };
    print $subhash->{ $_ } for qw[ Priority Name OtherVal ];
}