use Sort::Key::IPv4 qw(ipv4keysort);
my @sorted_keys = ipv4keysort { $hash{$_}->ip_address } keys %hash;