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