http://www.perlmonks.org?node_id=1230822


in reply to Join 2 arrays horizontally

Some more variants:
#!/usr/bin/perl use strict; use warnings; my @array1 = qw(host1 host2 host3); my @array2 = qw(ip1 ip2 ip3); my $length1 = scalar @array1; # Asking for 2 elements of a list which is composed of elements from 2 + arrays print map "$_\n", map { join ': ', ( @array1, @array2 )[ $_, $_ + $length1 ] } 0 .. $length1 - 1; # Asking for elements of 2 arrays by using references for my $i ( 0 .. $length1 - 1 ){ print map "$_,\n", join ' --> ', map { $_->[ $i ] } \@array1, \@ar +ray2; }