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