Select Code to Download

my @ips = qw(
  127.0.0.1
...
} @ips;

print map { $_.$/ } @sorted;

my @sorted = map {
  $_->[1];
...
    $_
  ]
} @ips;