in reply to using two arrays to make a table

I used your code with the following arrays: 
my @headings = map { "Head$_" } (1..5);
my @names    = qw(
   one two three
   un deux trois
   eins zwei drei
   uno dos tres
   een twee drie
);

[download]
I changed $count < 10 to $count < 3, fixed the == typo (;)), and the code produced this output: 
Head1onetwothreeHead2undeuxtroisHead3einszweidrei ...

[download]
Not very useful. :P

So now i take the liberty of showing you another way to do this: 

use strict; # please

my @headings = map { "Head$_" } (1..5);
my @names    = (
   [qw(one two three)],
   [qw(un deux trois)],
   [qw(eins zwei drei)],
   [qw(uno dos tres)],
   [qw(een twee drie)],
);

# horizontal
for (0..$#headings) {
   print "$headings[$_]: ";
   print join(', ',@{$names[$_]}),"\n";
}

# vertical
printf("%10s %10s %10s\n",@headings);
printf("%10s %10s %10s\n",@$_) for @names;

[download]
Hope this helps, and please, next time let us know what your arrays look like as well as your desired output.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom