my @result = sort { 
        $VAR1->{$a}{network} cmp $VAR1->{$b}{network} 
    } keys %$VAR1;