# felder holen
my $fields = $dienste{z}->{y}->{x}->{fields};

# für die Sortierung
my @order;
my %content;

# @order und %content belegen
foreach my$field (keys %$fields)
{
   # order und content vom feld holen
   my($order, $content) = ($fields->{$field}->{order}, $fields->{$field}->{content});

   # und in @order und %content speichern
   push(@order, $order);
   $content{$order} = $content;
}

# Sortiert ausgeben
foreach my$key (sort { $a <=> $b } @order)
{
   print "$key: $content{$key}\n";
}