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