#!/usr/bin/perl -wT
use strict;

my @a = qw(1 2 3 4 5 6);
my @b = qw(a b c d e f g h i);

my $max = $#a > $#b ? $#a : $#b;  # find the max index of the biggest 
+array

for my $i (0..$max) {             # loop through using the same index 
+variable
  print "$a[$i]\n" if defined $a[$i];
  print "$b[$i]\n" if defined $b[$i];
}
=OUTPUT
1
a
2
b
3
c
4
d
5
e
6
f
g
h
i
[download]

-Blake

Or you could controversially use the 'for' loop as used in pre-perlhistoric times -

@a = qw(look the for);
@b = qw(at lovely loop);
for($i = 0; $i < @a; $i++) {
    print "$a[$i] $b[$i] ";
}
[download]

resulting in -
look at the lovely for loop

Just my $0.02 (not that I'm one to arbitrarily dispense money ;o)

broquaint

Ohh Ahh :)

I like that.

The simplest is probably:

foreach my $v1 (@array1)
  { my $v2= shift @array2;
    print $v1, $v2;
  }
[download]

Of course this relies on @array1 and @array2 having the same number of elements!

If the arrays can have different sizes then you can do:

# print all elements
while( @array1 || @array2)
  { my $v1= shift @array1 || "empty"; # or whatever default value
    my $v2= shift @array2 || "empty";
    print $v1, $v2;
  }
[download]

# print elements up to the shortest array length
while( @array1 && @array2)
  { my $v1= shift @array1;
    my $v2= shift @array2;
    print $v1, $v2;
  }
[download]

I can't wait to see the golf versions!

while (@a || @b) {print shift @a,shift @b}
[download]

for(@a){print$_,$b[$0];$0++}
[download]

how about

print$_,$b[$0++]for@a
[download]

;)

   larryk                                          
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"

See also mapcar.

print $_,shift(@b) for @a;
# OR
print shift(@a),shift(@b) while @a; # might have been done already
# OR
$i = 0;
@c = map { $_, $b[$i++] } @a; # gives a new array with the values
[download]