my @a = qw( a b c ); my @b = qw( A B C ); my @c = qw( 1 2 3 ); for my $i ( 0 .. $#a ) { print $a[$i], $b[$i], $c[$i]; }