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