my @sorted = map {
  $_->[1];
} sort {
  $a->[0] <=> $b->[0]
} map {
  [
    sprintf("%03d%03d%03d%03d", split /\./),
    $_
  ]
} @ips;