Select Code to Download

use Socket qw( inet_aton );

...
} else {
   print("isn't less than\n");
}

my @sorted_ips = map substr($_, 4),
                 sort
                 map inet_aton($_).$_,
                 @ips;