Select Code to Download

my %ns_records = map { $_ => [
                               shift @addr_list,
...
                               shift @uptime_list
                             ]
                     } @ns_list;

for (0..$#ns_list) {
    $ns_records{$ns_list[$_]} = [$addr_list[$_], $ptr_list[$_], $uptim
+e_list[$_]];
}

my %ns_records = map { $_ => [
                               pop @addr_list,
...
                               pop @uptime_list
                             ]
                     } reverse @ns_list;