I have a local module, my own version of List::Util, with the utils I find I frequently want for lists. In it &zip and &group are defined. They come in real handy for tasks like this:

    use ihb::List::Util qw/ zip group /;

    my %ns_records;
    @ns_records{@ns_list} = group(3, zip(\(
        @addr_list,
        @ptr_list,
        @uptime_list
    )));
[download]

&zip(ARRAYS) takes a list of array references and zips them together into one list. zip([ 'a' .. 'd' ], [ 1 .. 4 ]) => qw/ a 1 b 2 c 3 d 4 /.

&group(LENGTH, LIST) groups elements in a list into a list of arrays with length LENGTH.

Update: If you don't like to parallelly have to keep the array count in sync, you may do

    use ihb::List::Util qw/ zip group /;

    my @arrays = \(
        @addr_list,
        @ptr_list,
        @uptime_list
    );

    my %ns_records;
    @ns_records{@ns_list} = group(scalar @arrays, zip(@arrays));
[download]

and this is how I'd prefer to do it, but I didn't want to clutter the first example which I think is clearer to understand at a first glance.

ihb