my @result2 = sort custom keys %$VAR2;

##</code><code>##

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

##</code><code>##

sub keys_sorted_by_network { 
    my $h = shift; 
    sort { $h->{$a}{network} cmp $h->{$b}{network} } keys %$h;
}
my @result = keys_sorted_by_network($VAR1);