Select Code to Download

use Sort::Key::IPv4 qw(netipv4keysort);

my %hash = ( '127' => { 'network' => '10.182.48.0/24',
...
             ...);

my @sorted_keys = netipv4keysort { $hash{$_}{network} } keys %hash;