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