my @sortedKeys =
    map substr($_, 4),
    sort
    map pack('C4', split(/\./, $ipaddr{$_})) . $_,
    keys %ipaddr;