sub ip_to_key { sprintf "%03d", split /\./, $_[0] }

my @sortedKeys =
    sort { ip_to_key($ipaddr{$a}) cmp ip_to_key($ipaddr{$b}) }
    keys %ipaddr;