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