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

##</code><code>##

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

##</code><code>##

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